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PEOPLE'S  COMPUTER  COMPANY 
is  published  5  times  during  the  school 
year .  Subscriptions  begin  with  the 
first  issue ,  October  19/2 [ 

Single  subscriptions  -  $4  for  5  issues 
fS5  Canada  and  overseas] 

Group  subscriptions,  mailed  at!  to  the 
same  address  — 

10  or  more  S3. 00  each 

30  or  more  $2.50  each 

100  or  more  $2.00  each 

Subscription  coupon  on  back  cover 
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111!!  FOR  PCC  SUBSCRIBERS  ONLY  I  MI! 


FOR  A  MERE  PITTANCE,  WE  WILL  SEND  YOU  TAPES 
OF  GAME -PLAYING  OR  OTHER  PROGRAMS  THAT  HAVE 
OR  WILL  APPEAR  IN  PCC-  HERE  ARE  THE  PRICES. 
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WORKSHOPS  IN  COMPUTER  SCIENCE 

Instructors;  ROBERT  ALBRECHT,  People's  Computer 
Company  and  LEROY  FINKEL,  Ravenswoud  High  School 
Schedule:  March  31  -April  1 ;  9  a.m.  -  10  p.m.  Saturday;  9  a,m.  - 
6:30  p;m,  Sunday;  Lawrence  Hah  of  Science,  Berkeley  campus 
Credit;  Two  quarter  units  in  Computer  Science,  each  course 
Fee;  $65  each  course,  includes  labor atory  fee  and  some  materials. 
Enrollment  is  limited 

For  information  telephone  642  1061  in  Berkeley 

Computers  in  the  Classroom  X  402A  (2) 

An  intensive  "hands  on"  introduction  to  the  use  of  calculators 
and  computers  in  elementary  and  secondary  school  education. 
Participants  use  programmable  calculators  and  learn  the  pro¬ 
gramming  language  BASIC,  using  both  timesharing  terminals 
and  small  computers.  Methods  for  effectively  using  computers 
in  the  classroom  and  analysis  of  available  hardware,  instruc¬ 
tional  materials,  computer  education  programs,  and  sources 
of  further  information.  The  course  is  conducted  as  an  open 
classroom  with  activity  centers  for  mathematics,  science, 
business  education,  and  social  science  teachers.  It  spans  all 
grade  levels  —  elementary  through  college.  No  previous  pro- 
gramming  or  data  processing  knowledge  is  necessary. 

Computers  in  the  Classroom; 

Individualized  Instruction  X  402B  (2) 

This  course  is  a  continuation  of  Computers  in  the  Classroom 
X  402A,  and  it  gives  participants  the  opportunity  to  increase 
their  computer  problem-solving  skills.  The  course  is  run  con¬ 
currently  with  X  402 A (  which  is  a  prerequisite. 

Games  Computers  Play  X  407  (2) 

Spend  a  weekend  matching  wits  with  a  computer.  Participants 
play  computer  games  and  explore  both  feal  life  and  "wor  lds 
of  if'  through  the  medium  of  computer  simulation.  Games  of 
skill,  games  of  chance,  and  games  to  learn  by.  Computing 
equipment  is  available  throughout  the  course.  No  previous 
computer  experience  is  required.  The  course  is  run  concur¬ 
rently  with  Computers  in  the  Classroom  X  402A  and  B. 


LEARNING  FAIRS  and  FUTURE  FESTIVALS 


The  story  starts  like  this: 

It  happened  at  Peninsula  School ,  a  forty -seven-year-old 
family  staff -owned  cooperative,  the  ^oldest  free  school 
in  the  country ,  ”  sit* of  the  first  New  Schools  Conference 
in  1969 . 

What  was  it?  Fifteen  "workshops  and  playshops”  *- 
Bead  Game  Music,  Kids  Teaching  Kids ,  Gestalt  Smorgas¬ 
bord  , . ,  -  and  forty  ongoing  events  -  Mobile  Solar 
Sculpture ,  People's  Computer  Center ,  Tree  Loom ,  the 
Alexander  Technique  .  . . .  Alt  spread  over  two  days 
and  sprinkled  among  the  oak  trees  of  the  six-acre  school 
site  and  the  rooms  within  Peninsula's  main  budding,  a 
green  Victorian  mansion.  “Come  together  as  participators/ 
innovators,'*  read  the  announcement  * 

and  ends  like  this: 

IFfrffr?  /  am  still  cutting  up  bookshelves,  the  fair  comes 
to  its  close .  lam  reluctant  to  leave  it,  and  l  realize 
why:  I  have  reopened  doors  into  ways  of  learning 
that  1  had  shut  or  that  had  been  closed  upon  me  years 
ago. 

For  I  am  a  product  of  that  educational  process  by 
which  we  are  systematically  and  deliberately  weaned 
away  from  what  Jerome  Bruner  catted  the  “left-handed 
/tti'ninl  iitru^Mw  irrtfimnfttitip  J  nnd  toward  the  "ruthf- 
handed*3  (verbal,  rational ,  logical),  that  process  which 
separates  one  kind  of  learning  from  another  and  rates 
each  in  terms  of  its  usefulness  to  society  and  not  to 
the  individual 

That  may  be  changing  now  in  many  schools  for 
many  younger  children.  But  we  adults  and  older 
children  need  support ,  encouragement,  what  Barney 
Young  called  “loosening  up,”  to  open  the  doors 
again  -to  realize  that  a  variety  of  “life  games"  are 
equally  important  parts  of  our  education.  that 

sort  of  encouragement  a  “learning  fair"  can  provide m 
At  Peninsula *$  fair  the  children  were  there  as  our 
guides,  making  creativity  look  natural  and  easy  as 
pie *  We  learned  from  them  that  weekend .  But  for 
me  it  was  only  a  start. 

from  “Learning  Fair4*  by  Susan  Sands,  Saturday 
Review  of  Education,  January  1973,  pages 
37-41. 

Saturday  Review  of  Education,  Box  2043 
Rock  Island,  Illinois  61207 


If  you  missed  the  Super  Ecstatic  Completely  Credible 
Learning  Fair  at  Peninsula  School  last  October  —  you 
can  still  make  one  of  these  this  spring. 

TO  TOUCH  TOMORROW:  FUTURE  FARE 

“The  merit  of  the  future  is  that  it  is  the  area  in  which 
we  can  exert  our  will  ” 

Rerfrand  de  Jouvenal 

If  you  feel  with  de  Jouvenot  that  ice  don  V  have  to 
accept  the  future  as  “fixed,"  then  join  us  on  March 
39—31  and  experience  with  us  some  of  the  exciting 
(and  frightening)  developments  which  are  shaping 
our  futures.  Experience  with  us  also  the  possibility 
of  creating  alternative  futures  to  “the  future”  that 
you  might  feel  is  being  imposed  on  you. 

We  begin  on  Friday  afternoon,  March  30,  with  a  senes 
of  films  to  be  shown  in  Olney  Hall.  Among  the  films 
you  will  see  are : 

'The  World  of  Future  Shock:  Crisis  in  the  800th  Lite- 
time"  in  which  ATvin  Toiler,  author  of  Future  Shock, 
examines  the  concept  of  "future  shock*'  and  the  stress 
placed  on  individuals  by  a  society  in  constant  flux. 

'The  Family  of  the  Future"  looks  at  3  different  family 
lifestyles  today  which  may  be  typical  styles  for  tomor¬ 
row.  The  f  ilm  is  narrated  by  Margaret  ft/lead. 

There  will  be  many  others.  These  films  will  also  be 
shown  Saturday. 

Friday  evening  a t  8:00  PM  in  Olney  Hall,  Arthur  6. 
Clarke,  author  of  Profiles  of  the  Future  and  many 
Other  hooks  about  futures,  wilt  speak  on  “1  he  Year 
2901  and  Beyond. " 

Saturday ,  March  31,  is  Future  Fare  Daw  Our  environ¬ 
ment  will  be  Harlan  ('enter  and  its  adjacent  outside 
Spaces.  Come  ptav  with  a  computer  front  the  People  s 
Computer  Co.;  imagine  with  Aaron  Hillman  you  re 
Lost  in  Space;  participate  in  The  Future  State  of  the 
Nation  with  Paul  Tw ether  and  Ken  harden;  join  Gloria 
Lovenihal and  her  elementary  school  children  in  their  \ 
"School  2000";  build  a  dome  with  Tom  Ricci;  eat  with 
the  One  World  Family  Commune;  ponder  Hie  prospects 
of  Immortality  with  Chad  Everone .  These  are  just 
a  sampling  of  the  ex  citing  events  in  store  for  you.  So 
come ,  Touch  Tomorrow. 


alternatives  learning  festival 

A  CELEBRATION 

We  at  Webster  College,  in  conjunction  with  the  alter¬ 
native  schoob  in  St.  Louis,  will  be  sponsoring  a 
National  Festiml  on  Alternatives  in  Learning,  to  be 
held  in  St,  Louis  on  May  3-6.  Our  hopes  for  holding 
such  a  festival  are  many;  however,  our  specific  aims 
are  to  learn  more  about  ways  we  can  humanize  the 
t  cfrt.rer.te  educational  needs  of  an  ever-changing  and 
l  increasingly  complex  society. 

:  77te  scope  of  A LF  will  be  between  5,000-10,000 
•  people  from  all  over  the  nation.  Some  of  the  better 
k n  ow n  spe ah e rs  so  far  are:  S it?  igh  t  A  lien ,  Un  i vers i  ty 
of  Massachusetts  School  of  Education;  Nate  Blackman. 
Principal  of  Chicago  Metro  Alternative  High  School; 
Don  GUnes ,  author  of  Creating  Humane  Schools: 
fafi  Kozol,  author  of  Free  Schools:  and  Don  Moore, 
Midwest  Center  for  New  Schools. 

ALF  will  revolve  around  a  “Learning Bazaar,"  to  be 
ru  n  b  v  teac he rs ,  ad m  in  is t ra t  ors,  puren is,  s  t  u  den  is,  a  n  d 
others  involved  in  the  creative  teaming  experience. 

Booths  wilt  focus  on  individualized  experiencing  . .  , 

Workshops  will  focus  on  group  experience  -  -  doing, 
thinking,  creating  . . , 

trrvone  interested  in  presenting  a  workshop,  group 
se ss io n ,  tea m ing  sh op.  or  other  at te nt ative  in v  olve m ent. 
til  the  FUST H  AL.  or  anyone  desiring  additional  info, 
please  call  Webster  College,  (314)968,0509^  ext.  489. 

Webster  College 
470  East  Lock  wood 
St.  Louts,  Mo.  631 19 
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for  more  info,  contact  Ms.  Sydney  Goldstein 

Director  of  Public  Events 
College  of  Marin 
Kent  field,  CA.  94904 
(415)454*3962 
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Recently  l  was  modifying  a  program  we  had  on  an 
HP  2000 F  system.  A  simplified  version  of  the  pro^ 


look  like  this: 

100 

REM 

1 

1  50 

REM 

2 

300 

REM 

3 

350 

REM 

4 

400 

REM 

5 

450 

REM 

6 

500 

REM 

7 

550 

END 

I  wanted  to  move  lines  400  and  450  to  before  Line 
300  so  That  the  program  would  look  like  this: 


100  REM  l 
150  RE M  2 
200  REM 
250  REM 
300  REM 
350  REM 
500  REM 
550  END 


So  I  innocently  typed 

REM  *  200#  50#  400#  450 

(i.e.p  "Renumber  Lines  400  through  450  by  50% 
starting  at  Line  200"  for  those  of  you  who  are 
unfamiliar  with  HP  BASIC.) 


And  the  computer  typed  back 

RENUMBER  SEQUENCE  OVERFLOW/OVERLAP 

(Whatever  that  means)  I  assumed  that  the  computer 
was  ref  using  to  perform  this  trivial  operation  and 
proceeded  to  do  it  the  hard  way.  Here's  how  it  looks 
(assume  the  program's  name  is  PROG) , 


GET 

NAM- 

DEL< 

SAV 

GET* 

NAM- 

DEL- 

DEL' 

R  ENh 

S  A  V 

GET* 

NAM' 

DEL 

DEL 

SAV 

SCR 

NAM 

APP 

APP 

APP 

K1L 

K1L 

K1L 

KIL 

SAV 


PROG 
T 1 

300 #550 

PROG 

T2 

10® #350 
-500  #  S50 
■200  #50  #400  #450 

'PROG 

'T3 

'I  00#  1  50 
'400  #  450 


-PROG 
-II 
-T2 
-13 
-T 1 
-T2 
T3 

PROG 


Come  on  HP,  that's  27  lines  I  had  to  type  instead  of 
spending  my  time  on  something  useful.  Not  only  that , 
it  could  have  been  done  with  just  one  command,  if 
HP's  software  was  written  properly  to  begin  with. 

Some  day  computer  manufacturers  are  going  to  learn 
that  computers  are  for  people  to  use,  and  not  the 
other  way  around. 

That  day  will  come  only  when  computer  users  take  it 
upon  themselves  to  pull  themselves  out  of  their 
apathetic  morass  of  ignorance  of  what  computers 
could  be  doing  for  them,  and  demand  their  rights  as 
consumers.  If  you  read  the  label  on  a  25c  can  of  soup 
why  not  read  the  "label"  on  a  $100,000.00  computer 
system 

P.S.  It  matters  not  to  the  poor  user  if  there  is  some 
undocumented  "secret"  way  to  do  what  he  or  she 
want, 

A  graffiti  found  at  Resource  1  is  quite  lucid  on  this 
point: 

job  is  figy 

^%PL£re 


Va/TiL  TOE 

PAKZftofak 

IS  $ 

DOA/C 


too 
no 
IfjQ 
130 
140 
ISO 
ISO 
I  TO 
ISO 

I  to 
£00 
£10 
220 
£30 
£40 
£50 
£40 
£T0 
£S0 
£90 
300 
310 
300 
330 
340 
350 
340 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
S30 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 


G&fa  G&te 

MUGWUMP 


REM  **•  MUGWUMP  -  A  HIDE  AND  SEEK  GAME 

REM  446  PEOPLE'S  COMPUTER  COMPANY#  MENLO  PARK  CA 

RANDOM 

REM  464  G-GRID  SUE  N-NUMfiER  OF  GUESSES  ALLDWE 
LET  G«10 
LET  M-5 

PRINT  "DO  YOU  WANT  THE  RULES  Cl -YES  O«iN0  7"l 
INPUT  Z 

If  Z  o  I  THEN  350 

REM  6*6  RULES  IN  LINES  £00  THRU  330 

PRINT  "A  MUGWUMP  IS  HIDING  IN  A"J Of "BY"l Gl "GRID*  TRY  TO" 

PRINT  "FIND  KIM  BY  GUESSING  HJS  GfilDPOlNT*  H0MEBASE  IS" 

PRINT  "GREDPOINT  0*0  AND  A  GUESS  IS  A  PAIR  «F  WHOLE" 

PRINT  "NUMBERS  CO  TOwlG-ll*l  SEPARATED  BY  A  COMMA.  THE  FIRST" 
PRINT  "NUMBER  IS  THE  DISTANCE  T0  THE  RIGHT  OF  H8MEBA5E" 

PRINT  “AND  THE  SECOND  NUMBER  IS  THE  DISTANCE  ABOVE  THE" 

PRINT  "HOMEBASE.  F0R  EXAMPLE#  If  YOU  THINK  THE  MUGWUMP" 

PRINT  "IS  HIDING  8  UNITS  TO  THE  RIGHT  GF  HOMEBASE  AND"’ 

PRINT  "3  UNITS  A68VE  HOMEBASE#  THEN  ENTER  8# 3  AS  YOUR" 

PRINT  "GUESS  AND  PRESS  THE  'RETURN *  KEY. " 

PRINT 

PRINT  "YOU  GET" INI "GUESSES-  AFTER  EACH  GUESS#  I  WILL" 

PRINT  "TELL  YOU  HOW  FAR  I  IN  A  DIRECT  L  INE  J  YOU  ARE  FROM" 

PRINT  "THE  MUGWUMP#  " 

REM  *6*  HIDE  MUGWUMP  AT  RANDOM  6R 1 DPR  I NT  A# B 
LET  A*INTCG*RND<im 
LET  B*1NTCG4RNDC0)> 

PRINT 

PRINT  "MUGWUMP  JS  HIDING#  YOU  GET" IN I "GUESSES. " 

REM  #44  N  GUESSES  ALLOWED  -  LINES  40Q  THRU  560' 

FOR  T*I  TO  N 
PRINT 

PRINT  "VKAT  IS  YOUR  GUE55"l 
INPUT  X#Y 

REM  6*6  IF  MUGWUMP  NOT  FOUND  GO  TO  LINE  500 
U  X  o  A  THEN  520 
IF  V  <►  B  THEN  520 

PRINT  "YOU  FOUND  HIM  1 N" I T I "GUESSES III" 

PRINT  "LET'S  PLAY  AGAIN." 

PRINT 
GOTO  350 

REM  6*6  D*STRA1 GHtLINE  DISTANCE  TO  MUGWUMP 
LET  D*SOR<  tX-A 1 1 2*<Y-B>  t£  > 

REM  *64  THEN  WE  ROUND  D  TO  ONE  DECIMAL  PLACE 
LET  D* I  NT  C ! 0401/1 0 

PRINT  "YOU  ARE** I Di "UN ITS  FROM  THE  MUGWUMP." 

NEXT  T 

REM  444  MUGWUMP  NOT  FOUND  IN  N  GUESSES 
PRINT 

PRINT  "SORRY#  THAT *5"|N f "TRIES-" 

PRINT  "MUGWUMP  IS  AT  GRIDPeiNT  "lAl"*"lB 
PRINT  "LET'S  PLAY  AGAIN.11 


PRINT 
GOTO  350 
END 
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P.  O.  BOX  10328 

PALO  ALTO.  CALIFORNIA  94303 

Business  Office  «  (415}  068*3977 
Product  Development  and  Teaching  Center  -  {415)  968-1101 
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TRANSPARENT  GRIDS  II NON  St  CM) 

Flexible,  transparent  acetate  grids  for  many 
different  purposes.  Measure  area  by  placing 
grid  over  plane  figure.  Put  blocks  on  top  of 
grid.  Demonstrate  fractions,  decimals,  area 
relationships  on  the  overhead  projector.  Make 
charts,  graphs,  etc. -then  wipe  them  clean) 
Two  kinds  of  grids  avaifabte-1 0"  x  10" 
ruled  in  inches  or  25  cm  x  25  cm  ruled  in 
centimeters, 

36500  Transparent  Cm  Grids  - 

(Pkg,  Of  101 _ $3,25 

37000  Transparent  Inch  Grids  — 

{Pkg.  of  10}  .  $3.25 


36900  NEW  MATH  RULE  — INDIVIDUAL  ,35 

Durable  feor-in-ww  ruler  made  of  plastic.  Has  four  scales  -  iwo  oo 
each  side  —  1/10  *  1/16  ,  metric  and  number  fine.  Accurate  easy- to- read 
calibrations. 


VIS-A-VIS  PENS 

Visual  aid  pens  for  overhead  pro¬ 
jector  transparencies  which  write 
smoothly  and  evenly  on  all  acetates. 
Bright,  transparent  colors  do  not  change 
during  use.  Easy  to  clean  from 
acetates;  washable  from  hands  and 
clothing;  non-toxic  and  odorless. 
Available  in  Pocket  Set  (one  each  of 
the  four  colors  —  black,  red,  blue  and 
green)  or  in  boxes  of  a  dozen  in  black 
only. 

38450  VIS-A-VIS  PENS 

Pocket  Set  (4}  $2.40 

Dozen  black  ....  _  S6.O0 


CIRCLE  MASTER  COMPASS 

34100  Circle  Master  Compass— Individual  ,  ,  ,  $  ,90 


* Warehouse 

By  Thomat  Albright 

Except  for  its  hot  mustard 
mrterior  pamt  lob,  the  itn- 
menjf,  fix-level  building  at 
the  comer  of  Tenth  and  How* 
ard  streets  looks  like  any  of 
the  older  warehouses  and 
light  industrial  plants  that 
form  most  of  the  stirroundiug 
neighborhood. 

Once  inside,  however— via  a 
door  marked  simply,  "One1* 
—  you  plunge  into  an  utterly 
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Reprinted  from  WORKFORCE  (January  and  February, 
19731,  published  by  Vocations  for  Social  Change,  Box  13, 
Canyon,  CA,  945  T  6.  VSCisa  tax-exempt,  ami-profit 
collective  subsisting  entirely  on  your  donations, 

Pam  Ilardt  and  Bernard  Greening  for  the 
Resource  One  Collective* 
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Resource  One  is  the  only  grassroots  community 
mind-boggling  complex  of  group  in  the  country  that  wo  know  of  to  obtain 
winding  corridors  and  free-  ite  own  iajg0-Capacity  computer  system*  They 

personalities,  specialized  ***  1,1  the  Process  of  designing  programs  that 
know-how  and  sophisticated  they  hope  will  be  useful  to  all  kinds  of  npn- 
technology  that  are  coming  profit  community  groups  working  for  social 
together  In  an  unprecedented  „han„? 
new  way. 

I  had  come  expecting  to 

meet  a  few  artist*  sharing  From  its  inception,  Resource  One  has  boon 
itudio  space  in  * charaleris-  housed  in  Project  One,  San  Francisco's  first 
community  In  a  warehouse.  The  first  task  of 
bit  amount  of  apace  that  U  four  of  us  who  developed  Resource  One  was 
being  used  as  studios  by  to  first  help  develop  Project  One  from  June  *70- 
pointer*,  sculptors,  ccram-  June  '71. 
lf£j  and  ether  artists  and 
craftsmen.  But  it  also  houses 

fully  equipped  television  and  In  mideuimer,  1971,  Transamorica  Computer 
radio  studios;  film,  photo,  Co*  was  just  a  number  in  the  telephone  book.  £,  . 

and  video  processing  labs;  a  man  we  reached  in  their  public  relations  dept* 

computerized  data  bank,  cx-  rt  *  ,  .  -  __  ,  .  „ 

perl  men  lid  free  school  and  flaid  TA  ^d  *  warehouse  full  of  computers," 
professionally-manned  c It n-  which  turned  out  to  mean  throe  Xerox  Data 
t;  and  a  staggering  variety  Systems  940  computers  returned  by  their  lease 
tod^verfamiin^ach^  customers*  (The  XDS-940  is  a  timesharing  computer^ 

ACTIVITIES  that  can  handle  many  users  simultaneously  avof^j^ 

The«p  oeUvltlei  are  the  telephone  lines.  This  feature  io  ideal 

work  ef  some  2D0 people  ond  US  because  it  allows  community  groups  to  eXLo 

CO  organisations  who  are  In-  use  the  computer  from  thoir  own  location*  The  J 

volved  In  "One”  on  a  regular  galy  equipment  needed  is  a  $45/montii  terminal*!  ^ 

»  —  «-*«-  -"*»■*  -  «■»  7* 

ty  graduates  and  dropouts,  potential  for  relating  to  many  groups  in  San 
to  PhDs,  electronics  sfkvcial-  Francisco  and  therefor©  tiicy  could  get  good  put- 
Ists  and  other  highly  trained  licity  for  making  it  all  possible, 
pro  feia  Ion  ale  who  have 

pulled  out  of  the  normal  was  also  having  trouble  getting  rid  of 

stream  of  economic  Die  to 

join  in  a ^cooperative sharing  the: lr  940’s  because  they  originally  cost  $800,000 
of  talent,  experience  and  seven  years  ago  and  are  n  second  generation, rt 
physkal  resources.  They  Customers  could  now  buy  faster  "third  generation" 
kMwtadRe  1  nmTskilu'bal'Iri-  ^chines  for  half  that  cost.  In  Septersbcr  1970, 
too  costly  and  highly  special-  the  deal  wi  th  TA  was  approved  by  their  top 
bed  Uchnolugical  hardware  management* 
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*T  A  CPP  MFETlvG  I\  ME*  Y0RK  H3T  MARCH  (REPORTED  TN 
INTERRUPT  lb)  THE  TOPIC  m  ThE  PBSITIVC  USLS  OF  CO*  PUTEN'S- *  ARE 
Tw£RL  ANYV<  .v*S  DISCUSSED.  THE  PREVAILING  SLEWED  TO  BE 

WTLL#  maybe  S%  POTENT  t  ALLY#  but  NOT  yet*  RESOURCE  cm  IS  Da  IMG 
ALL  IT  CAM  T?  CREATE  REALITY  FRDM  WHATEVER  POTENTIAL  ThERE  IS, 


r~ 

1  BACn 


A  year  and  a  half  old, 
♦'On*"  is  the  senior  tuembef 
of  a  loose  network  of  similar 
warehouse  “projects"  that 
has  already  frow  n  to  include 
a  larger  "Artaud,"  at  I7lh 
and  Alabama  streets,  and 
several  smaller  complexes. 
In  the  works  are  others  in 


In  November  107 I,  w**  rociovod  $10,000  from 


1 


the  Stern  Family  Foundation,  it  wasn't  eaoy  to 
get.  Resource  On©  had  a  corporate  identity 
(we  took  over  the  tax- exempt  corporation  from 
the  old  San  Franc iaco  Switchboard)  and  a  ^ 

promised  computer,  but  no  opera ring  track-record. 
We  were  able  to  use  the  efforts  of  the  egos 
San  Francisco  and  Ihs  East  Project — which  was  also  helping  other  warehouse 

BTnie  Idea  lot  "One"  orisi-  ^unities  develoj—and  the  a^txablo  ctod- 
naled  with  Ralph  Scott,  an  Ability  of  the  150  people  building  j  a  living-  Jj/  . 
architect  and  engineer  by  working  environment  for  themselves  at  Project  One 
training  who  was  then  shar-  eliow  tlxat  wo  were  really  serious  and  had  a 

chance  to  succeed,  Ecos  initiated  the  Stern  coi^ 
tact,  and  convinced  them  that  technology  in  an 
intonrol  part  ot  anv  new,  viable  urban  environ^ 
jnent,  Stein  granted  a  total  oi  $25,000,  which  wo 
split i  Ecos  taking  $15,000  and  Resource  One 
$10,000, 


9ES7URCE  9ME  1 9  a  COLLECTIVE  OF  PEOPLE  F«0M  0 1 iPARA TE 
BAC<GA^UM^5j  ww3  BELIEVE  THAT  TEC^MBL^GIC AL  T?5LS  Can  BE  1391$  OF 
SOCIAL  CHANGE  when  C5NTR8LLLD  BV  THE  PFBPlE  -  *£  TriYlMG  TO  HELP 

ElECO^E  AVAILABLE  ALL  PLOPiEj  A\D  TO  £?  COL-AGE  AND  ASSIST 
The  DEVELOPMENT  OF  WAYS  TmeS£  T90i_S  CAN  1 -PROVE  ALL  0LR  LIVES# 

7UR  PRINCIPAL  *eSL  AT  PRESENT  IS  An  XDS*9*0  CRNPyTER,  A 
HEDIUV  SCALE#  seCPND-5ENE»ATl£N  TImES*IABINS  HACHIVE  WHOSE  CAPABILIIIES 
SEEH  «rU  SUITED  Tf  8UR  P’jRiSCS£S  BECAUSE  0F  THE  9-*D  *  S  ABILITY  TO 
INTERACT  WITH  a  Large  NUMBEP  individual  or  GROUP  USERS  SIMULTANEOUSLY 
(DV£S  TELEPHONE  LINES)  ANJ  INEXPENSI VELV# 

SOME  ©UR  PRl«ARv  PROJECTS  A^E  THE  BUILDING  OF  A  RETRIEVAL 
$Y$TEv  GEARED  T©  the  SEEDS  OF  NflN-EST A9L ISHMEnT  REFERRAL  SERVICES 
(SwlTCMBBARDS#  HOTLINES#  rTC *  J  ENABLIsS  T*£F  TO  CREATE  AND  SHARE 
LARGE  DATA  EASES*  T«£  ASSISTANCE  OF  VARIOUS  GRASSROOTS  POLITICAL 
AND  ECONOMIC  ipSEARCH  PROJECTS  AI^ED  AT  CD^MUnITV  th£ 

CHEAP  PRODUCT T©H  OF  PAIUMG  LISTS#  A  COMMUNITY  MEDICAL  CLINIC  INFORMATION 
SVSTEr,  A  PROSPA^  SF  C'SMPjTCPt  EDUCATION  A\D  DEMYSTIFICATION  FOR 
T*E  GENERAL  PUBLIC#  AMD  GENERALLY  RAISING  Th£  LEVEL  OF  COMMUNICATION 
AND  COOPEnATlON  AMONG  DIFFERENT  COMMUNITY  GROUPS* 

RESOURCE  ONE'S  ROOTS  GO  QACK  T9  BERKELEY  DURING  THE 
CAMBODIA  CRISIS  OF  “AY#  1^7D,  a  GROUP  OF  COMPUTER  PEOPLE 
T^ERE  C© T  TOGETHER#  LI*E  OT vtE^S,  And  taLKEC  Of  THE  IP  DISENCHANTMENT 
WIT-  THEIR  SKILLS  MERr  DESTINES  f MR  USE  IN  THF  SYSTEM,  THEY 

FANTASIZED  about  US l NS  COMPUTERS  FqR  yuiLDiNG  COMHgN I  CAT  I  ON  NETWORKS# 

AND  SEVERAL  MONTHS  LATER  WERE  ATTRACTED  ID  PROJECT  ONF  I N  SAN  FRANCISCO# 
**h£RF  OTHER  TECHNOLOGIC ALLY* PR  1 EN T ED  PEOPLE#  AS  L£tL  AS  ARTISTS  AND 
E5*-PHTFFSSr JNALS  ?F  ALL  TYPES#  wER£  GATHERING  TO  Twv  (jgi  a  HE 4  CONCEPT 
©F  INTEGRATING  The 1 R  SKILLS  AND  W©R<  ^ITH  THE  REST  0F  TH£ 1 R  LIVES* 

PROJECT  BNf  (9R  *  <0SC*  *  I  WAS  A  VACANT  5-STARY  WAREHOUSE 
BUILDING  IN  DOWNTOWN  SAN  PRANC I  SC© - , 00C  SQUARE  FEET  OF  8 ARE, 

COLD  CONCRETE j  WHICH  HAS  SINCE  BEEN  TR AkSFEftMf 0  INTO  AN  IMAGINATIVE 
WARREN  OF  t * SPACES 1  *  IN  WHICH  90  PEOPLE  L I VE  AND  ISO  PEOPLE  WORK  ON 

a  WIDE  variety  nr  projects,  besides  resource  o*e,  there  are  an 

EXPEklFrNTAL  hJGh  SC^^flL#  A  VIDEOTAPt-PReCUt! VG  GROUP#  MUSIC  AND 
RADIO  PEDHDIMG/PFACTICE  STUDIOS#  A  film  PROCESSING  LAO#  THEATER 
REHEARSAL  SPACE#  and  OFFICE  AMJ/OR  LIVING  SPACE  FiR  T«E  NORTHERN 
CALIFORNIA  h*^,  ©f  V V 4 * #  A  RADICAL  WELFARE  DEPARTMENT  hOftWERS' 

UNION#  A  COUNSELING  CENTER#  AND  NUMEROUS  ART  AND  CRAFT  PEOPLE # 

* 'ONE’S1 *  social  and  physical  environment  was  Built 
COMPLETELY  BY  ITS  ~EM2£RSj  TO  THEIR  OWN  SPECIFICATIONS#  AND 
IV  Th<i  PA*ZZS>  THfY  S-aRED  Thi  IR  T^CLi#  SxJlLS  AND  POLITICAL  IDEAS 
Aj  ONLY  PLOP LF  who  DLPfND  ON  EACH  C*V*  A  *9RK£RS 1 

COLLECTIVE  has  SEEN  F?^Med  t3  FURTHER  DEVELOP  AND  PRfFjT  FR©M  NEWLY- 
AC^Ul-ED  CONST^UC"'' H\  1<ILLS*  THF  COMMUNITY  1$  >  *  RiJN »  *  fiY  UNANIMOUS 

C^N St  -3USJ  DFClSleNS  a^E  MADE  AT  WEEKLY  MEETINGS* 


Ul! 


lng  space  with  a  dozen  other 
people  in  i mailer  warehouse 
quarters. 

At  its  moit  practical  level, 

Scott  explained,  the  plan 
grew  out  of  the  fact  that 


there  were  "a  lot  of  people 
who  needed  to  find  an  alter 
native  way  to  deal  with  tco 
nomic  problems,  such  ai  low 
income,  or  unwillingness  to 
sacrifice  their  integrity  for  a 
reasonable  salary.  There  are 
great  numbers  of  poepie  to¬ 
day  who  have  talent  Experi¬ 
ence  and  a  command  of 
money,  but  refuse  to  pay  the 
price.  There  are  other*  — 
people  with  m Piter's  degrees 
and  PhD*  —  who  simply 
can't  Qnd  jobs." 

ISOLATION 

*'A  second  factor  Is  isola¬ 
tion,  which  makes  poepie  liv¬ 
ing  In  a  dty  rein  lively  Inef¬ 
fective.  People  live  in  i  high¬ 
ly  compartmentalized  world* 
with  no  flow  or  cooling  ty  be¬ 
tween  one  activity  and  anoth¬ 
er.  Many  creative  people  are 
victimized  by  the  negative 
aspects  of  living  in  an  urban 
environment  and  are  unable 
to  take  advantage  of  its  posi¬ 
tive  elements,  such  as  stimu¬ 
lation  and  sharing  ideas. 
Some  can’t  pay  to  keep  a 
phone  Installed  to  cal]  across 
the  city  and  find  out  what  i 
friend  Is  doing. 

Finally,  SCo«  pointed  out, 
“there  h  an  aura  of  •  Iitism, 
and  even  mysticism,  that 

surrounds  the  ftorld  of  tech- 
nolof'y,  auid  many  of  the  arts, 
because  so  many  jx-opie  luck 
access  to  equipment,  training 
?rd  Other  resources.” 


Tha  money  from  Stern  allowed  us  to  begin 
the  design  and  construction  of  the  machine  room* 
The  computer  needed  a  dust  free,  air- conditio nod 
environment *  We  wanted  it  to  be  a  visually 
accessible  yet  flexible  shell*  With  the  help  of 
two  architects  in  Ecos,  we  finally  drew  up  plans 
for  a  sheetrock  structure  with  Lexan  (a  fire- 
retardant  plastic)  windows. 

Toward  the  end  of  January,  1972,  the  machine 
room  was  under  way  and  we  were  down  to  $4,000 
which  had  to  be  spent  soon.  We  had  been  con¬ 
tacting  and  building  relationships  with  founda¬ 
tions  for  months.  We  only  received  responses 
from  foundations  with  whom  wo  managed  faco-to^ 
face  contact  with  the  director.  So  far,  only 
those  who  have  also  seen  us  at  work  have  come 
tlurough*  A  problem  has  been  that  the  foundations 
we  encountered  did  not  have  the  technical 
expertise  to  evaluate  our  project*  they  seemed 
threatened  by  the  quantum  jump  from  simple 
telephone  switchboards  to  coiupu  Leri  ted  in¬ 
formation  networks.  However,  we  did  convince 
the  people  ot  the  Whole  Earth  Catalogue  Coir^unity 
land  to  lend  us  $8,000  "for  a  month”  to  tide 
us  over  unt±l  the  other  grants  came  in* 

Sy  May#  vzc  had  used  most  of  the  WEC  money, 
when  two  foundations  each  aimounced  grants  of 
$25,000  contingent  on  our  raising  a  total  of 
$100,000.  Wo  had  not  expo -tod  the  contingency 
part,  but  rt solved  to  use  it  as  a  lever  in 

•  taoeti-oj*  ^  c  « 

2  =3  **  —t  *3  *-  Cj  «  a>  ra 


THF  FIRST  year  ?F  *  1  £ N£  '  *  *AS  A  k£t D 1  NO  - 0UT  PROCESS  ’«H ICH  LEFT 
ONLY  Fa*  hARDT  FR?m  fur  g^jDlNAL  UERKFLFY  3»QUP*  PaM  aaS  CALLING 
C^FUTE^  rANjFiCTU^ERS  5N  THE  HH0N£  TTY  |  NG  TQ  LAND 

A  DONATION  flF  4  M] Vi -COMPUTER*  WHICH  C^ULD  G£  TAKEN  AK3UNC  COMMUNITIES 
F)R  DEMONSTRATIONS  AND  EDUCATIONAL  EX^->SJkE*  TRANSAMfc  R  ]  CA  COMPUTER 
CO*  tU^EK  WAS  THE  FIRST  BITE.  TA  hAD  3  940  »S  SITTING  UNUSED 

I N  A  *»  ARE  MR  USE  #  RF  TURNED  FR^M  lCASC  BECAUSE  Th£y  h*D  SEEN  REPLACED 
BY  NEWER  MACHINES.  ALTHOUGH  T*E  9^0  IS  STILL  BEING  USED  BY 
C^MERCJAL  T  PASHAS  INC  SERVICE  COMPANIES#  T  M£R£  AV£  FASTER#  CHEAPER 
3RD  GENERATION  MACHINES  AVAILABLE  ftHJO  MAKES  THE  9*Q  UNATTRACTIVE 
Fm  NC^  INSTALLATIONS#  AND  THEREFORE  * (OBSOLETE *  *  COMMERCIALLY* 

TA  REt^SHPr©  T?  T mE  IDEA 

OF  USING  A  COULTER  DONATED  BY  THEM  FOR  AN  I NF“RHay  I 0N/REF£RRAl 
NET*0~*  T*-aT  L*«JLC  TIE  ALTERNATIVE  GROUPS  tS«I  TCH93ARD3  >  INTO 
ESTABLISHED  SOCIAL  SERYICF  AGENCIES  ( |  NFORMAT I  DUALLY  I #  KITH  G09D 
PUBLICITY  POTENTIAL  FOR  TA * 

SO*  IN  SEPTEMBER  1R71  KE  HAD  A  COMPUTER#  BUT  NO  MONEY# 

NO  SOFTWARE#  NO  I  /'J  ECUIPMENT#  NO  PLACE  TO  INSTALL  THE  COMPUTER# 

NO  DEVELOPED  * 1  PROGRAM1  *  !IF  WHAT  TO  D«#  AND  VERY  F£H  CBMMJ  TTED  PEOPLE* 
kE  Dir,  H?NLVCR,  HAVE  Twe  SUPPORT  OF  qfHER  MEMBERS  OF  **0NE^»--1N 
PARTICULAR  THE  ECOS  PROJECT#  W I TH  xHQM  hE  PRESENTED  A  JOINT 
FUNDING  »ifOP7S*L  TO  STERN  FQUNDAT t  TN  »*\CH  NETTED  *1C#000. 

USING  Tint  M3\rY  t»  BUILD  ThE  COMPUTER  ENVIR0N“ENT  tt5,00C  WORTHS# 

Ray  RFNT  avO  TrtEPHSNE  BILLS  (NO  SALARIES!#  WE  DEVELOPED  A  PROPOSAL 
FDR  A  FULL -SCALE  COMMUNITY  COMPUTER  CENTER  WITH  a  3uDGET  OF 
»1C0#:-CD  FOR  irS  FIRST  TEaR*  JT  TOOK  uS  A  YEAR  OF  STEADY 
FLNDRAISING  TD  RAISE  T--E  MONEY#  DURING  WHICH  TIME  THE  COMPUTER  WAS 
INSTALLED  (AT  a  TPTAL  COST  OF  *70GI#  AND  ^*E  BEGAN  TO  LEARN  ABOUT  OUR 
OPERATING  SYSTEM,  WHIG*  N3NE  3F  US  HAD  SEErt  BEFORE  * 

PETER  DEUTSCH  tPHUGHT  UP  THE  OPERATING  SYSTEM  I  WHICH 
HE  HAC  WRITTEN  3  YEARS  BEFORE )  #  DONATING  hIS  TIME,  AND  FRED  WRIGHT 
FR3M  T*‘E  STANFORD  ARTIFICIAL  INTELLIGENCE  PROJECT  HfLPED  SuR  RESIDENT 
HARDWARE  ^EPS^n,  LEE  FELSEfoSTEiN#  GET  EVERYTH  I NG  WORKING*  THE  LAST 
MAJRR  CONTEMPLATED  SYSTEMS  PR^JECT--A  RETRIEVAL  SYSTEy-^IS  nok  BEING 
IMPLEMENTED  BY  BART  BERGER#  15ENNAHD  GREENING  AND  JOHN  COONEY  OF  OUR 
STAFF,  WITH  Twr  HELP  R-JBERY  SHAPJR^  OF  m£Ta  INFORMATION  APPLICATIONS 
In  CA^RRITGE  IhE  DESIGvEO  !T  FOR  THE  ^rP-lO).  PAUL  HCC<EL,  WHO 

FJTH  DEJTSCN  AT  XERPX  PARC,  HAS  HELPED  US  GENERALLY  TO  ACQUIRE 
NEEDE?  HARDWARE  AND  SOFTWARE  * 

BY  APRIL#  ALL  ^  OUR  SYSTEMS  (INCLUDING  ONE  TO  PROVIDE  STATISTICAL 
REPORTS  TP  OUTPATIENT  CLlNfCS)  WILL  SC  FULLY  *°ERA T 1 0'*AL ,  A>0  wE 
KILL  *<*V£  F-EGu’v  ACCEPT  :N6  I%PuT  OF  SEVERAL  LANGE  CATA  GASES#  INCLUDING  REFER 
INFORMATION  S^ITC-jUARCS  *ND  OTHER  PEOPLE *QP I ENT ED  MEDIA#  DEMO¬ 

GRAPHIC  INFORMATION  AND  SUCH  FOR  RESEARCH  PROJECTS#  AvD  1  *  USEFUL  CONTACT 1  * 
FILES  FOR  A  USEFULLY  LARGE  NUMBER  OF  COMMUNITY  GROUPS •  ThE  ONLY 
J?r.  r*FEr f MFvf  T0  InCLUD*1,"  ^0ME  NATIONAL  A ppL  I  C* T I 0nS  OF  THE 
RtTU:VAu  SYSTEM  IS  T^L  C^ST  *F  TELEPHONE  CUNTACT* 
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pursuing  further  grants,  Fortunately,  we 
received  two  contributions  of  $5,000  from 
individuals  which  enabled,  us  to  Last  until  the 
fall,  when  the  rest  of  our  funding  came  through* 

In  everything  else,  we  had  sought  the  help 
of  '* experts"  but  wound  up  doing  most  of  the 
actual  work  ourselves*  We  were,  however,  very 
lucky  to  find  an  experienced  person  in  Los 
Angeles  who  brought  up  the  machine  in  three 
days  for  a  total  cost  of  $600*  Then  Peter 
Deutsch,  who  wrote  an  operating  system  for  the 
940  several  years  ago  and  now  does  research  for 
Xerox,  put  the  H software"  into  operation  by  con¬ 
tributing  his  time  for  several  weeks. 

During  the  summer,  the  Resource  One  staff 
seemed  to  stabilize  to  one  electronics  engineer, 

4  programmers,  2  electronic  apprentices,  and  an 
accountant  with  business  management  experience* 
Internally,  we  had  to  fight  people's  tendency  to 
define  themselves  by  their  acquired  specialities 
and  we  had  to  develop  some  cocanon  vocabulary  to 
be  mutually  understood*  Dealing  with  people 1 s 
professional  conditioning  is  a  day-to-day  pro¬ 
cess  which  continues  while  we  are  developing  our 
two  major  software  systems i  an  information 
retrieval  system  and  a  medical  statistical  and 
reporting  system. 

The  information  retrieval  system  allows  a  data 
base,  such  as  the  community  service  information 
held  by  switchboards  to  be  developed,  easily 
Updated,  real landed,  and  printed  by  categories* 
The  system  is  designed  to  be  used  by  the  non- 
computer  professional,  who  sees  the  computer  as 
a  tool  in  his/her  work.  And,  it  can  alleviate 
the  six  mouth  research  time  spent  putting  to¬ 
gether  essentially  out-of-date  directories,  and 
can  be  used  for  several  purposes,  including 
power  structure  research,  listing  of  referral 
information  for  groups  which  are  in  contact 
with  people  who  need  it,  and  other  kinds  of 
information  storage.  The  system  was  designed  by 
Robert  Shapiro  of  fteta  Information  Applications. 
He  is  helping  un  implement  the  system,  which 
should  be  completed  by  March,  1973* 

The  medical  system  will  provide  reporting  and 
in-house  statistical  work  for  the  □*E*o*/H*E, w, 
funded  health  care  canters.  They  have  earmarked 
data  processing  funds  and,  generally,  are  not 
getting  service  comparable  to  the  cost  they 
are  paying.  Because  we  are  local,  we  can 
provide  more  immediate  reporting  and  are  willing 
to  tailor  the  system  to  suit  health  care  center* a 
particular  needs.  Selling  this  system  can 
provide  us  with  enough  income  to  handle  the 
statistical  needs  of  the  free  clinic,  which 
could  not  afford  to  buy  data-processing  services* 

Vie  will  shortly  offer  a  system  for  producing 
statistical  tables  describing  a  clinic *s 
activities*  Clinics  will  be  able  to  use  these 
reports  to  satisfy  the  requi remanta  of  their  gov¬ 
ernment  grants*  This  system  is  intended  to 
produce  substantial  revenues  for  Resource 
One — it  may  turn  out  to  be  our  main  bread  and 
butter— but  more  important,  it  will  allow  us  to 
develop  other,  perhaps  more  useful  informational 
tools  for  the  clinics  which  otherwise  couldn't 
afford  to  pay  for  it. 

In  addition  to  the  two  soft-ware  systems,  we 
are  developing  a  community  education  program. 
Using  the  computer  and  other  media,  such  as  video 
tape,  we  want  to  explore  how  computers  are  used 
in  America,  how  their  usage  affects  individuals, 
other  possible  uses  of  counters,  and  how 
computers  integrate  with  other  communication  and 
transportation  technology*  Through  our  com¬ 
munity  education  program,  we  hope  to  reach 
large  numbers  of  people* 

We  axe  well  under  way  towards  making  the 
computer  we  have  available  to  community  groups  in 
the  Bay  Area,  But,  Resource  One  will  continue 
to  be  seen  as  an  odd  or  mysterious  creation 
without  broad  implications  unless  technical 
people  (architects,  engineers,  biologists,  etc*] 
commit  themselves  to  expanding  and  redefining  the 
usage  of  their  skills  and  the  redistribution 
of  control  over  technological  hardware  In  con¬ 
junction  with  communities  of  people  who  are  try¬ 
ing  to  generate  change. 

For  more  information  CONTACT-  Pam  Hardt  oi 

Bernard  Greening,  c/o  Resource  One,  13 B0 

Howard  St.,  San  Francisco,  CA  94103 


AT  THAT  P01NT  rm  WE  Plan  to  BEGIN  GENERATING  SOME  MONEY  WITH 
p*F  SYSTEM  OUR  0MLY  SIGNIFICANT  REVENUES  S8  FAR  HAVE  0QME  FftMM  A 
TIMESHARING  tract  WITH  THE  UNIVERSITY  QF  CALIFORNIA.  WE  THINK  IT'S 
j^P^rtanT  THAT  EVFRYBNE  DEVELOP  A  **£A\3  0F  SUPPORT  That  D3E5NT  DEPEND 
9\  The  LARGESSE  BF  FtJU^DA  T I  OR  CN  WELFARE-  IT  FOLLOWS  THAT  IF  WE 
ARF  Tq  HE  VALUABLE  TO  OUR  COMMUNITY*  **TWER  GROUPS  -ILL  SHARE  THEIR 
SUPPORT  HTTP  S  I2NLY  TO  THE  EXTENT  THEY  ARE  ABLE  TO  ) /  AND  THAT  W£ 

HlscT  aLSS  FIND  NON -EX PL 0 1  TAT  I VE  WAYS  T0  MaKE  HONEY  IN  THE  MORE 
COMMERCIAL  MARKET*  THAT'S  ONE  REASON  FOR  fH£  MED I  CAL  INFORMATION 
SYSTEM,  WHICH  FORD  TURPING  AND  CHRIS  MAC  IE  ARE  FINISHING, 

SINCE  OUTPATIENT  CLINICS  OFTEN  HAVE  GOVERNMENT  GRANTS  THAT 
INCLUDE  LINE  ITEMS  F0r  DATA  PRQCESSING*  AS  A  RULF  #  WE  L06<  AT 
k\r  USF  OF  THE  9*C  *S  PflTFNT I AL  REVENUE#  UNLESS  TH£  GROUP  INVOLVED 
IS  TOTALLY  BROKE  AND  CAN'T  EVEN  COVER  OUR  MINIMAL  0UT -0F -POCKET 
C*STS  (WHICH  IS  SELDOM). 

RESIDES  KEEPJN3  THE  MACHINE  UP,  LEE  FEL SENSTE 1 ft#  MARK  PEACOCK 
an:  Paul  WARD  are  PUTTING  TOGETHER  an  ELECTRONICS  SHOP  TO  BE  USED 
BOTH  FOR  EDUCATION  {THEIRS  AND  OTHERS'  I  AND  FflR  DESIGNING  AND 
BLILDING  HARDWARE  NEEDED  IN-HOUSE  AND  FOR  OUTSIDE  CONTRACTS* 

ONE  PROJECT  WHICH  HAS  WIDER  POTENTIAL  IS  A  UNI  DUE  INTERCOM  SYSTEM 
LEE  DF5IGNED  FOR  4 1  ONE 1  1  THAT  LINKS  ALL  THE  SPACES  IN  THE  BUILDING-- 
IT  COULD  LEAD  T0  *0RE  SOPHISTICATED  NE I GH3ORHB0D  COMMON I CAT  1 0N$  SYSTEMS* 


OUR  EDUCATIONAL  PROJECTS  HAVE  BEEN  THE  MOST  DIFFICULT 
CONCEPTUALIZE*  OUT  ARE  PERhaPS  THE  *0ST  CRUCIAL  TO  EXPANDING 
CONCEPT  OF  HUMaN  USES  OF  TECHNOLOGY*  aE0PLE  wE  TALK  TO  SEEM 
MYSTIFIED  AT  FIRST  EVEN  WITH  THE  SIMPLE  MAlLlftG-LlSY  PROGRAM, 

4NC  WE  ARE  ALL  CONSTANTLY  EDUCATING  N0K-TECHN I  CAL  PEOPLE*  HOPING 
T3  BREAK  D'lWN  THEIR  FEARS  AND  STIMULATE  CREATIVE  THINKING  ABOUT 
HO*  Thfy  CAN  USE  THE  SYSTEM.  STEVE  ROBINSON,  AN  MBA,  HAS  BEEN 
GIVING  BOOKKEEPING  and  TAy  CLASSES  TO  OTHER  GROUPS*  AND  THERE 

is  se^F  "fallpuT"--pe0ple  becoming  exposed  when  they  come  to  the 

CLASS*  AND  LATER  GETTING  INTERESTED  IN  HAVING  ACCESS  T0  THE  COMPUTER 

similarly,  mike  Chadwick,  though  his  snobol  classes*  and  pak 

hardt,  THROUGH  A  SERIES  OF  V I CEO  T APE  S  ON  WOMEN'S  PROBLEMS,  ARE 
REACHING  OUT  TO  The  COMMUNITY  AND  EXPOSING  US  IN  THE  PROCESS* 
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AS  OF  NOW,  RESOURCE  ONE'S  FINANCES  SEE*  SECURE  FOR  A  YEAR  OR  SO*  AND  NO 
REALLY  DIFrjCULT  TECHNICAL  PROBLEMS  (BUT  LOTS  OF  PPpBFTUNl TIES) 

REGAIN.  ¥£T  ,£  ARE  STILL  STRUGGLING  *ITN  THE  REMNANTS  QF  OUR 
PROFESS  I OkaL  ELITISM,  NEEDS  FOR  SOME  HIGHER  AUTHORITY  [ THE  BOSS) 

TQ  DEFINE  guR  TASKS*  AND  TENDENCIES  T^*aRC  SPECIALIZATION* 

ALL  OF  *H ICH  RESTRICT  THE  COLLECTIVE  PROCESS  wE  WANT  TO  CULTIVATE* 

0L3  DFCISIDNS  are  Made  at  RELATIVELY  OPEN  meetings* 

BY  UNANIMOUS  CONSENSUS  OF  k  SEVEN- PERSON  STEERING  COMMITTEE ■ 
riVAL  RESPONSIBILITY  FOR  GETTING  *0RK  DONE  RESTS  THERE-  IT  IS 
DIFFICULT  TO  -4U!LD  *  COLLECTIVE  CONSCIOUSNESS*  WHERE  PEOPLE  CAN 
S^FPORT  EACH  OTHER  EMOTIONALLY  AND  OTHERWISE*  WHEN  W£  ARE  AT 
DIFFERENT  LEVELS  Of  POLITICAL  AWARENESS#  wflRK  SKILLS*  LENGTHS 
OF  ASSOCIATION*  AND  COMMITMENTS  T8  THE  CONCEPT  OF  COMMUNITY* 

BUT  IT'S  IMPORTANT*  AND  WE'RE  TRYJnG  HARO  * 


GOTYE'i 
1  EThIC 


IT 4  S  VERY  CLEAR  TO  US  ThAT  RESOURCE  ONE  COULD  NOT  HAVE 
GOTTF'*  off  thf  GROUND  WITHOUT  THE  HIGHLY  DEVELOPED  SHARING 

gF  -*  AND  W£  CAM'T  aFFOhD  TO  FORGET  THAT-  W£  WANT 

TO  SHARE  OUR  EXPERIENCES  MTH  OTHERS  INVOLVED  IN  SIMILAR 
PROCESSES*  AND  WELCOME  ANY  CONCRETE  SUGGEST  10 VS  0N  POSSIBLE 
applications  oup  tbols*  somewmere*  we  mislaid  the  organization 

MANUAL  THAT  SA*S  what  A  GROUP  LIKE  US  IS  SUPPOSED  TO  BE  DOING, 

5-j  wL'RE  playing  it  sy  ear. 


THIS  ARTICLE 


prepared  by: 

FORD  TURPInG 
LEE  FELSEN3TEJN 
STEVE  ROBINSON 
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In  this  issue,  we'll  look  at  some  practical  music 
theory  and  describe  a  few  "utility"  algorithms 
for  music  programming. 

The  first  article  in  this  series  described  chro¬ 
matic  scales.  The  12-tone  chromatic  scale  is 
based  on  the  2nd  overtone,  which  is  twice  the 
frequency  of  the  fundamental  or  base  frequency. 
The  tones  of  the  scale  are  generated  by  multi¬ 
plying  the  fundamental  frequency  by  the  12th 
root  of  2,  12  times  in  succession  {ending  with 
the  value  2). 

Here  is  a  general  program  for  tempered  (pro¬ 
portional)  scales. 


TEMPERED  SCALE  FREQUENCY  GENERATOR  *** 


MAT  OVERTONE  SHOULD  I  BEGIN  REPEATING”; 


"HOW  HAN/ 
T 


TONES  IN  THE  SCALE”; 


100  REM  *** 

110  PRINT 
120  PRINT  ”AT 
130  INPUT  R 
140  PRINT 
150  PRINT 
160  INPUT 
170  PRINT 

180  PRINT  ”WHAT  IS  THE  BASE  FREQUENCY”; 
190  INPUT  F 
195  PRINT 

200  LET  L=LQGiR>/T 

210  PRINT  "TONE”#  "FREQUENCY” 

220  PRINT 

230  FOR  1-0  TO  T 

240  PRINT  I+1#F*EXP(  I*L) 

250  NEXT  I 
260  PRINT 
270  END 


If  you  input: 

R  -  2  (octave  of  the  fundamental) 
T  =  12 
F  =  anything 


11 


h  /Hi 


oo 

i 

A 


X 


7 

P  O 


8 


MA  10 


you  obtain  the  frequencies  of  a  chromatic 
scale  (abbr:  C-scale)  on  frequency  F.  In  our 
diagrams,  we  have  labeled  the  tones  of  the 
C-scale  with  the  first  twelve  integers.  The  C- 
scale  thus  contains  tones  1, 2,  3,  4,  5,  6, 7, 

8,  9, 10, 11,  and  12.  Tone  1 3  is  written  as 
tone  1. 

DEFINITIONS  AND  ABBREVIATIONS 

USED  IN  THIS  ARTICLE  - 


H-ScAlE 


Here's  our  question  for  today: 

Given  the  C-scale  as  the  UNIVERSE,  how  are 
SUBSETS  (patterns  with  fewer  than  12  tones) 
with  predictable  properties  to  be  selected? 

Here  is  a  simple  model  to  help  us. 


A:  c-c cAte 


CHROMATIC  MAJOR, 

MINOR, 

AND  PERFECT  TONES 


Chromatic  tones  fall  into  four  classes: 

« 

1)  The  DEFINER,  and  the  octave  of  this  tone 
(DO).  One  of  the  12  tones  is  chosen  to  be  the 
“definer"  of  any  scale.  Since  the  C-scale  can 
start  with  any  tone,  DO  must  be  chosen  arbi¬ 
trarily.  In  al  our  diagrams  in  this  article,  DO  is 
tone  1 .  The  octave  of  DO  is  equivalent  to  DO, 
of  course.  We  include  the  octave  of  DO  in  the 
scale  because  it  makes  it  possible  to  use  sym¬ 
metry  as  a  tool  of  analysis. 

2)  MAJOR  TONES  (MA)  Major  tones  are 
"upward  moving"  with  respect  to  DO.  MA 
tones  sound  happy  in  a  pattern  (scale  or  melody) 
with  DO  as  the  definer. 


C-scale:  The  Chromatic  scale  (Diagram  A).  Twelve 
tones  with  proportionately  increasing  frequencies, 
repeating  every  octave. 


All  arithmetic  in  C-scale  music  is  performed 
"mod  12"  —  here's  a  useful  mod  12  reducer 


DEF  FNM(X)=X— INTtX/121*  12 


H-scale:  The  Harmonic  scale  (Diagram  B).  The  eighth 
tone  of  a  chromatic  scale  is  very  close  to  the  frequency 
of  an  important  overtone  (the  3  overtone).  The  H-scale 
is  just  the  C-scale  redrawn  to  display  this  relationship 
more  clearly. 


IX):  the  defining  tone  of  a  scale 

P:  Perfect 

PO:  Perfect  opposite 

MA:  Major 

Ml:  Minor 


I 


On  the  H-scale  or  cycle  of  5ths  (see  box  on 
this  page  for  a  description  of  the  H-scale) ,  MA 
tones  are  all  clockwise  of  DO. 

If  DO=l,  MA  tones  are  3,  5, 8, 10  and  12 

3)  MINOR  TONES  (MI).  Minor  tones  are 
“downward  moving”  with  respect  to  DO.  MI 
tones  sound  sad  in  a  pattern  based  on  DO.  On 
the  H-scale,  MI  tones  are  all  counterclockwise 
of  DO. 

If  DO=l,  MI  tones  are  2,  4,  6, 9,  and  11. 

4)  PERFECT  TONES  (P,  PO) .  If  DO  =  1 , 
tones  6,  7,  and  8  are  called  perfect  tones.  This 
is  partly  traditional,  partly  modern. 

a)  Tones  6  and  8  are  very  close  (in  the  C-scale) 
to  the  2/3  and  3/2  intervals  which  were  used 

by  Pythagoras  to  define  the  “diatonic”  (7-tone) 
scale  (see  FCC  1:3).  They  are  honored  with 
the  title  “perfect,”  although  6  =  MI  and 
8  =  MA  by  their  positions  on  the  H-scale. 

b)  Tone  7  is  the  “Perfect  Opposite"  (PO) 
of  DO.  When  the  PO  appears  in  a  pattern,  the 
pattern  is  reversible,  PO  becoming  (when  it  is 
played)  a  competing  "DO.”  Tones  1  and  7 
thus  form  an  AXIS  around  which  the  other 
tones  are  defined.  Note  that  MA  and  MI  are 
reversed  exactly  when  PO  becomes  DO.  The 
alternation  of  MA  and  MI  tones  on  the  C-scale 
is  interrupted  by  the  PO. 

As  we  shall  see  presently,  there  is  a  "good" 
reason  for  treating  tones  6, 7,  and  8  as  a  class. 
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SELECTING  SEVEN-TONE  SCALES 


Seven-tone  scales,  including  the  familiar  diatonic 
(major,  minor)  scales,  are  subsets  of  the  C- scale. 
How  is  the  subset  specified?  It  turns  out  that 
there  are  several  ways  to  do  this.  Each  way  leads 
to  a  somewhat  different  selection  algorithm. 

I)  First,  the  seven  tones  could  be  selected 
completely  at  random,  like  dealing  seven  cards 
from  a  deck  of  12  cards.  This  algorithm  is  left 
to  the  reader.  For  the  moment  (ieM  this 
article),  let's  look  only  at  7-tone  patterns  with 
somewhat  even  distribution  (purposely  omitting 
scales  like  l-2-3-4*5*6-7-l). 

II)  MA,  MI,  and  P(PO }.  You  can  use  the 
distribution  of  MAP  MI,  and  F  tones  to  select 
7- tone  scales  with  predictable  properties, 
based  on  the  properties  of  the  tones  themselves. 
Here  is  one  set  of  rules  of  selection: 


1st  location  (DO) 

2nd  location 
3rd  location 
4th  and  5th  location# 

6th  location 
7th  location 


=  1  (always) 

=  2( M 1)  or  3(MA) 

=  4<MI)or5(MA> 

=  6(P)  or  7(PO)  and  7(PO)  or 
8<P)  1 2  out  of  3] 

=  9(MI)  or  1Q(MA) 

=  JI(MI)  or  12(MA) 


Diagram  C  shows  the  scale  locations  and  which  tones 
can  occupy  each  location.  The  diagram  also  shows 
how  the  properties  of  each  of  the  tones  would  affect 
the  melodic  tendencies  of  the  scale.  Major  tones  tend 
to  progress  upward,  minor  tones  downward.  ^ - 


The  de finer  (from  Ta  ChuanfThe  Great  Treatise  on 
the  f  Ch  tng*  or  Book  of  Changes) 


In  the  Book  of  Changes  a  distinction  is  made  among 
three  kinds  of  change ;  nonchange,  cyclic  change*  and 
sequent  (non-cydic)  change,  (yon change  is  the  back¬ 
ground*  as  it  were*  against  which  change  is  made 
possible.  For  in  regard  to  any  change  there  must  he 
some  fixed  point  to  which  the  change  can  he  referred; 
otherwise  there  can  he  no  definite  order  and  every¬ 
thing  is  dissolved  in  chaotic  movement *  This  point  of 
reference  must  he  established,  and  this  always  requires 
a  choice  and  a  decision.  It  makes  possible  a  system  of 
coordinates  into  which  everything  else  can  be  fitted* 
Consequently  at  the  beginning  of  the  world ,  as  at  the 
beginning  of  thought,  there  is  the  decision,  the  fixing 
of  the  point  of  reference*  Theoretically  any  point  of 
reference  is  possible*  hut  experience  leaches  that  at 
the  dawn  of  consciousness  one  stands  already  enclosed 
within  definite,  prepotent  systems  of  relationships. 

The  problem  then  is  to  choose  one's  point  of  reference 
so  that  d  coincides  with  point  of  reference  for  cosmic 
events *  For  only  then  can  the  world  created  by  one's 
decision  escape  being  dashed  to  pieces  against  pre¬ 
potent  systems  of  relationships  with  which  it  would 
otherwise  come  into  conflict*  Obviously  the  premise 
for  such  a  decision  is  the  belief  that  in  the  last  analysis 
the  world  is  a  system  of  homogeneous  relationships  - 
that  it  is  a  cosmos,  not  a  chaos*  This  belief  is  the 
foundation  of  Chinese  philosophy,  as  of  all  philosophy* 
The  ultimate  frame  of  reference  for  all  that  changes 
is  the  nonchanging* 
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Note  that  selection  of  locations  2,  3,  6,  and  7 
is  binary;  selection  of  locations  4  and  5  is  2* 
out-of-3.  No  tone  can  be  used  twice.  No 
location  can  be  occupied  by  more  than  one 
tone.  There  are  1*2*2* 3*2*2  =  48  different 
7-tone  scales  formed  by  this  algorithm.  Choice 
of  MA  vs.  MI  may  be  independent  from  loca¬ 
tion  to  location. 

In  the  following  program  (program  2),  locations 
2,  3,  6,  and  7  are  independent.  Location  5  is 
conditional  on  the  outcome  of  location  4  (see 
Table  for  Program  2).  The  conditional  assign¬ 
ment  of  location  5  plus  the  need  for  two 
different  formulas  makes  this  RANDOM  selec¬ 
tion  a  sloppy  algorithm.  Can  you  improve  it? 


100  DIM  D<7> 

105  RANDOM 

110  DC1 >*1\D<8>*I 

120  FOR  1*2  TO  7 

130  R* 1NT <2*RND (0 > ) 

140  IF  I >4  THEN  170 
150  DCI>«R*2*(I-| ) 

160  60  TO  210 

170  IF  D<4>-6  THEN  200 

180  D(5>*8 

190  IF  1*5  THEN  210 

200  D( I }*R+£*( I-| *5) 

210  NEXT  I 

220  PRINT 

230  FOR  1*1  TO  8 

240  PRINT  D( I >1 

250  NEXT  I 

260  PRINT 

300  END 
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RUN 
1  2 
READY 
RUN 
1  3 

READY 
RUN 
1  2 
READY 


(l) 

R 

D(I) 

FORMULA 

CONDITIONS 

(1).  (8) 

not  computed 

1 

1 

always  I 

(2) 

I  or  0 

2  or  3 

R  +  2*(I  -  I> 

none 

(3) 

1  or  0 

4  or  5 

R  +  2*(I  -  I) 

none 

(4> 

1  orO 

6  or  7 

R  +  2«(I-I) 

none 

(5) 

1  orO 

7  or  8 

R  +  2*(1-  1.5) 

D(5)  -  8  if  D(4)  =  7 

(*) 

1  or  0 

0  or  10 

R  +  2*(I  —  l  .5) 

none 

(7) 

1  or  0 

11  or  12 

R  ♦  2*<I  -  1.5) 

none 

4  6  7  10  12  1 

t34S(  c_ 

■  * .  /yi(K.i r 

I  \  V  S'  \  _ _ 

5  6  J  |Q  ||  |  Now  that  you’ve  seen  this  program,  a  little 

question  on  which  we  shall  build  in  later 
articles; 


RUN 

1  3  4  6  8  10  11  1 

READY 
RUN 

1  3  4  7  8  9  12  1 

READY 
RUN 

I  3  5  6  7  9  11  I 


We  said  that  there  are  48  different  scales 
possible  by  this  method.  This  statement 
neglects  the  phenomenon  of  inversion.  A 
scale  is  an  inversion  of  another  scale  if 

1)  it  uses  the  same  tones,  but  assigns  a 
different  number  the  role  of  DO.  E.g., 
1-3-4-6-8-10-11  -1  is  an  inversion 
of  11  -1*3-4-6-8-10-11,  the  brack¬ 
eting  tones  being  DO  in  both  scales. 

2)  the  pattern  of  intervals  is  the  same, 
but  beginning  with  a  different  interval. 
We’ll  explain  this  further  in  a  later  article; 
try  to  work  it  out  for  yourself  in  the  mean¬ 
time. 


READY 
RUN 
I  2 
READY 
RUN 


How  many  of  the  48  scales  are  inversions  of 
one  another?  Conversely,  how  many  really 
unique  patterns  are  possible  with  these  rules? 

5  6  7  10  II  1  One  further  question,  likewise  with  future 

significance:  How  many  of  the  scales  generated 
by  this  method  are  symmetrical?  For  example, 
1  -  2  -  5  -  6  -  8  -  9  - 12  - 1  is  symmetrical  (look 
at  Diagram  C).  Is  this  of  any  importance? 


*  3  4  7  8  9  12 
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Writing  Gin  Specs:  Part  II 


Last  issue  we  dealt  with  some  genera!  bid  re¬ 
quirements  that  can  be  used  in  any  computer 
bid  situation  (see  box  this  page).  This  issue 
will  deal  with  specifics  for  hardware  and  soft¬ 
ware.  You  should  be  aware  from  tiie  start 
that  your  software  requirements  may  be  every 
bit  as  important  as  your  hardware  needs  and 
specs  should  be  written  accordingly.  Secondly, 
the  more  specific  you  are,  the  more  information 
will  be  provided  to  you  by  bidders,  (i.e.,  if 
you  list  all  your  requirements,  it  is  incumbent 
upon  the  bidder  to  list  any  exceptions  to  those 
requirements).  If  you  don  t  list  your  needs, 
he  may  not  tell  you  all  about  his  system  and 
you  will  have  to  search  out  this  information  on 
your  own. 

Both  hardware  and  software  sections  can  and 
should  be  written  with  a  required  section  and 
a  preference  will  he  shown  if  you  can  provide 
this  section.  This  gives  you  wiggle  room  in 
your  selection  and  lets  your  bidders  know 
exactly  what  your  minimum  needs  are  and 
what  you  really  want.  Chances  are,  no  one 
will  be  able  to  give  you  everything  you  want 
(at  least  not  at  a  reasonable  price!). 

Here  are  some  more  general  bid  specs 

that  have  been  brought  to  our  attention 

since  the  last  installment  of  this  article. 

Use  them  in  good  health. 

*  The  bidder  must  have  gross  sales  in 
excess  of  $50  million  and  evidence 
of  a  profitable  computer  operation. 
[Wonder  who  suggested  that  one?] 

This  line  will  certainly  knock  out 
Fly-By-Nite  Manufacturing  but  will 
also  knock  out  other  small,  legit¬ 
imate  bidders  as  well. 

*  Bidder  must  have  10  (20,  30  ??)  or 
more  similar  installations  in  simi¬ 
lar  institutions  and  must  provide 
their  names  and  addresses. 

*  Bidder  must  have  an  active  educa¬ 
tional  users  group. 

*  Bidder  must  provide  a  library  of 
programs  suitable  for  use  in  sec¬ 
ondary  schools  (in  BASIC). 

*■  Computer  system  must  have  a 
second  instructive  language 
(e.g.,  FOCAL  -  who  claims  this 
one?). 


HARDWARE 

You  can  take  three  different  approaches  in 
writing  specs  for  hardware.  You  can  be 
SUPER-SPECIFIC.  For  instance,  you  could 
specify  an  8K,  DEC  Edusystem  20  with  4 
terminals  (ASR  33).  Unless  you  added  “or 
the  equivalent,"  this  kind  of  spec  would  get 
you  one  single  bidder,  DEC.  If  you  add  “or 
the  equivalent"  it  would  be  like  opening 
Pandora’s  box.  Everyone  would  bid  claiming 
they  were  “equivalent”  or  better  than  an 
Edusystem  20  and  you  might  have  a  real 
hassle  proving  otherwise.  Unless  your  mind 
is  completely  closed,  we  don’t  recommend 
this  approach. 

Another  approach  is  to  spec  your  hardware 
completely  around  your  software  specs  - 
“the  hardware  provided  will  be  capable  of 
operating  the  software  described  elsewhere 
in  this  document."  This  seems  like  an  awfully 
gutsy  thing  to  do  and  requires  that  your  soft¬ 
ware  specs  be  exhaustive  and  exacting.  This 
approach  probably  makes  the  most  sense  but 
I’m  not  convinced  it’s  practical  unless  you 
really  have  some  sharp  spec  writers  around 
your  shop. 


Always  seeking  a  compromise,  the  obvious  way 
to  spec  your  system  is  to  list  those  minimum 
hardware  requirements  that  you  think  you 
might  have  plus  your  preferences,  require  that 
the  hardware  be  capable  of  operating  all  the 
software  specs  and  write  yourself  a  neat  set  of 
software  specs. 

Now  for  the  specific  hardware  items  — 

Central  or  Basic  Computer  System 

Don’t  spec  a  Central  Processor  (CPU)  per  se, 
rather  spec  a  total  system.  Require  that  it  be 
new  equipment  (unless  you  want  a  used  one) 
and  define  that  it  be  of  latest  generation  design 
(today  that’s  third  generation  or  is  it  fourth  or 
3!A[?J),  If  you’re  gutsy  don’t  identify  your 
core  storage  requirements  in  terms  of  x  number 
of  words  or  bytes.  Instead,  specify  your  needs 
in  x  amount  of  USER  SPACE  or  user  space  per 
terminal,  while  operating  in  time  shared  BASIC. 
(We  felt  5000  words  was  adequate  if  the  system 
couid  CHAIN  programs.)  And,  if  your’re 
messing  with  FORTRAN  and  the  like,  then 
define  your  needs  in  terms  of  user  space  for 
each  language.  User  space  is  really  what  you’re 
concerned  about  isn’t  it?  You  will  find  wide 
variations  in  user  space  from  system  to  system— 
so  beware.  This  tactic  puts  the  pressure  on  the 
vendor  to  specify  space  in  your  terms,  not  his. 

To  save  you  dollars  later,  you  should  specify 
that  the  delivered  system  be  expandable  to  x 
amount  of  core  without  the  need  to  replace  the 
CPU  or  the  addition  of  an  expansion  chassis 
(we  said  32K).  It’s  cheaper  to  get  the  bigger 
chassis  now  and  less  aggravation  later.  If  you 
have  a  preference, for  a  12  bit  word  system, 
say  so.  If  you  want  a  1 6  bitter  spec  it  that  way. 
You  may  as  well  get  what  you  want! 

More  Storage 

In  this  day  and  age  you  have  an  unbelievable 
choice  if  you  want  more  storage  capability  on 
your  system.  For  the  complete  system  you 
can  choose  fixed-head  disks,  cartridge  disks, 
magnetic  tape,  DECtape,  cassette  tape,  and  a 
plethora  of  floppy  disks  and  other  assorted 
paraphenalia,  or  any  combination  thereof.  You 
should  examine  your  needs  as  you  see  them  and 
then  make  your  decision.  We’re  not  convinced 
that  a  fixed  head  disk  is  needed  for  any  reason 
other  than  speed  and  to  run  up  the  price.  If 
speed  is  not  your  concern,  save  yourself  some 
money  and  don’t  require  a  fixed  head  disk.  That 
doesn’t  mean  you  won’t  get  one.  Some  systems 
only  work  with  such  a  disk  for  reasons  that  have 
never  been  adequately  explained.  (Warning:  If 
you  will  be  doing  CAJ  on  your  system  you  will 
need  a  fixed  head  disk.  CA1  consumes  an 
enormous  amount  of  disk  space  and  it  slows  the 
system  down  considerably.  If  you  plan  to  do 
anything  in  addition  to  CA1  on  that  system,  be 
prepared  -  you’ll  need  plenty  of  extra  disk 
space  to  handle  it.) 


“/’(/  like  a  computer 
I  ha  t 's  abou  t  this  It  igh 
and  this  wide...  ” 


Here  are  some  cost  savers  Most  large  systems 
are  sold  with  magnetic  tape  to  be  used  to  load 
the  “system”  in  case  of  a  malfunction.  This 
tape  unit  ($10,000  worth)  has  no  other  use 
since  time  sharing  users  cannot  use  it.  You 
can  eliminate  this  costly  extra  by  using  a 
cartridge  disk  as  your  time  share  storage  unit. 

In  case  of  malfunction  you  use  this  same  device 
to  reload  the  system. 


If  you’re  considering  a  DEC  Edusystem,  some 
combination  of  DEC-TAPE  and  cartridge  disk  is 
probably  the  most  flexible,  least  cost  way  to  go. 
Remember,  DECTAPE  is  more  like  a  random 
access  device  than  it  is  like  magnetic  tape,  or 
so  they  say. 


Whatever  you  do,  be  sure  to  specify  that  the 
storage  you  want  be  available  to  all  users  in 
time  shared  BASIC.  That  seems  obvious  but 
you  should  know  that  hardware  people  some¬ 
times  sell  you  things  that  don’t  work  the  way 
you  expect  them  to. 

We’re  a  little  gun-shy  about  floppy  disks  and 
cassette  units  as  of  now.  We  haven’t  seen  major 
vendors  providing  software  to  drive  these  units. 

Is  that  clear?  Just  because  \t\ attached  to  your 
hardware  does  NOT  mean  it  will  work.  There 
must  be  some  linking  software  to  make  the  “it” 
available  to  the  user  in  BASIC.  The  software  is 
not  always  available,  so  buyer  beware  .... 
However,  if  you  have  some  good  software  people 
around,  these  two  items  may  be  a  good  low- 
cost  way  to  adding  storage  to  your  little  system. 

I/O  Capability 


If  you’re  specinga  Teletype-only  system,  there 
is  little  to  worry  about.  For  each  TTY  you  need 
a  TTY  interface  or  for  all  of  them  get  one  multi¬ 
plexor  into  which  they  plug.  Multiplexors  usually 
handle  8  to  1  6  TTY  and  work  out  to  be  cheaper 
than  buying  individual  interfaces.  If  you  are 
going  to  communicate  via  phone  lines  with 
modems  (see  PCC  Vol.  1 ,  No.  2,  p.  I  2),  beware. 
Some  TTY  interfaces  WILL  run  either  direct 
TTY  or  modems  -  some  WON’T.  Specify  your 
needs.  No  matter  how  many  TTY’s  you  want 
now,  you'll  want  more  soon.  Be  sure  to  require 
that  your  system  I/O  is  expandable. 


/^Ott-IATS 

ONLY  n 

THE  MOhiTHU 
LEASE  PRICE?/ 


With  changing  technology  you  should  be  able 
to  get  multi-speed  interfaces  and  multiplexors 
so  you  will  be  prepared  to  run  those  sweet  new 
CRT’s  at  rates  of  30  CPS  or  faster.  Your 
standard  TTY  interface  will  nor  run  at  30  CPS. 
Specify  variable  speed  interfaces  or  multiplexors 
to  meet  this  need. 


If  you  want  card  readers,  printers,  and  all  those 
other  high  speed  peripherals  be  very  cautious. 
These  items  don’t  just  plug  into  the  multiplexor- 
EACLI  needs  a  controller  (like  an  interface).  Do 
you  want  these  peripherals  available  for  time 
share  users?  You  had  better  say  so!  Some  BASIC 
systems  will  run  these  peripherals  in  time  share, 
other  will  not.  The  HP  2000 E,  the  low  cost 
model,  will  not  drive  high-speed  peripherals  in 
time  share  .  . .  the  2000F  will.  (Another  of  life’s 
unexplained  mysteries.)  Some  DEC  systems 
will  drive  these  peripherals  IF  you  buy  more 
core. 


Another  frustrating  item  is  the  high-speed  paper 
tape  reader  you  must  buy  on  larger  systems  for 
S3500  or  so.  It  is  only  used  to  ENTER  system 
software.  No  user  can  use  it  to  enter  BASIC 
programs  (don’t  ask  me  why!). 

Cost  savers  —  Mark  sense  card  readers  we  have 
friends  who  swear  by  them  and  other  who  swear 
at  them.  Check  mark  sense  readers  out  carefully 
before  you  decide.  You  may  find  a  punch  card 
reader  will  better  meet  your  needs  and  save  you 
money.  Line  printers  are  expensive  as  hell.  A 
good  Saving  can  be  made  if  you  buy  the  80 
column  printer  instead  of  the  full  blown  1  32 
column  model.  Do  you  really  need  all  tiiat 
printing? 


mcpe  memoes  oo^going  to  eio^ 


Miscellaneous 

Somewhere  in  your  bid  spec  you  should  require 
that  all  interconnecting  cables  and  hardware  be 
included.  Cables  can  run  $35  to  S50  each.  It’s 
nice  to  have  them  included  in  the  price.  (1 
realize  these  things  sound  obvious  but  unfortu¬ 
nately  we  know  of  schools  that  have  been 
S-screwed  by  these  little  things.) 

Most  bids  we’ve  seen  have  specified  that  the 
system  will  operate  without  special  environ¬ 
mental  requirements  such  as  air  conditioning. 

You  might  even  specify  the  low-high  tempera¬ 
tures  you  require.  That’s  what’s  neat  about  a 
mini ...  no  air  conditioning,  no  special  raised 
floors  and  all  those  other  expensive  things. 

Powerfail/restart  capability  is  a  ha rd ware  and 
software  item.  This  goody  costs  about  $500. 

In  case  of  power  failure  or  fluctuation,  it 
guarantees  you  won’t  lose  everthing  that’s 
going  on  and  then  restarts  your  system 
automatically.  Asa  hardware  item,  it’s 
pretty  straightforward.  Be  sure  to  mention 
the  requirement  that  there  be  software  to 
make  it  operate  when  you’re  running  BASIC. 

Again,  it  sounds  obvious,  but  we  did  use  a 
system  recently  that  had  powerfai!  hardware 
but  when  the  plug  was  kicked  out,  we  lost 
everything???! 

Want  your  computer  in  a  cabinet?  Better  say 
so,  you  may  not  get  it  that  way. 

Maintenance  -  the  stickywicket  of  this  business. 

It  costs  dearly  but  buy  a  yearly  maintenance 
contract  on  your  system  and  high  speed  peripherals. 
It’s  worth  it.  We  don’t  recommend  maintenance 
contracts  on  TTY’s,  Service  them  with  on-call 
service.  Be  confident  that  you  will  get  12  to 
24  hour  service  from  the  computer  manufac¬ 
turer  —  service  by  employees  of  the  firm.  I’d 
be  very  letry  if  maintenance  is  only  available 
from  a  “local  mechanic  with  whom  we 
contract.”  Those  of  you  in  the  boonies  will 
encounter  this  problem.  Beware. 


We’ve  said  . . .  don’t  buy  TTY’s  from  the 
computer  supplier.  It’ll  cost  you  a  fortune. 
The  computer  supplier  may  require  that 
you  buy  a  consol  TTY  from  them  (usually 
an  ASR  35  for  $3500  or  so).  Yoitit stuck 
buying  it  from  them  but  don’t  accept  the 
ASR  35  —  tell  them  you  want  an  ASR  33. 

It  will  do  the  same  job  at  half  the  price. 

When  you  specify  TTY’s  from  another 
source  be  sure  to  include  the  requirement 
that  the  TTY  be  modified  for  your  system. 
TTY’s  connected  to  DEC,  Data  General 
and  other  computers,  require  a  modifi¬ 
cation  kit  installed  in  the  TTY  to  make  it 
run  compatibly  with  the  computer  (cost 
is  about  $100  each).  Remote  TTY’s  (via 
phone  lines)  don’t  require  these  modifi¬ 
cations. 


Leasing  —  Nobody  buys  computers  these  days, 
they  lease  them.  Someone  out  there  should 
write  us  an  article  about  leasing  -  pros,  cons, 
prices  etc.  We  do  know  that  interest  rates 
vary  from  firm  to  firm  as  do  all  other  fine 
print  items.  Let  Truth-In-Lending  work  for 
you  -  REQUIRE  the  vendor  to  specify  the 
interest  rate  used  in  calculating  your  lease. 


SOFTWARE 

We’re  only  going  to  worry  about  BASIC  here. 

If  you  need  other  language  specs,  you'll  have 
to  find  another  reference.  Let  me  repeat  the 
comment  that  this  section  of  your  specs  may 
be  more  important  than  your  hardware  require¬ 
ments. 


BASIC  was  developed  at  Dartmouth  College 
and  there  is  considerable  literature  to  explain 
what  is  called  Dartmouth  BASIC.  Trouble  is, 
the  authors  of  the  language  have  come  out  with 
several  revisions  and  improvements  to  the 
language  which  have  blurred  the  original  definition. 
We’re  going  to  reinstate  what  we  think  is  the 
original  Dartmouth  BASIC. 


Dartmouth  BASIC  includes  the  following 
statements:  LET.  PRINT,  READ,  DATA, 
GOTO,  IF-THEN,  FOR,  NEXT.  GOSUB, 
RETURN.  INPUT,  REMARK,  END,  DEF, 
DIM,  STOP.  RESTORE,  RND,  SGN,  SIN, 
COS,  TAN,  ATN,  SQR,  LOG,  EXP,  I  NT, 


ABS,  and  a  full  mix  of  MATRIX  commands. 


You  may  not  need  the  MATRIX  commands. 

All  the  rest  represent  the  absolute  minimum 
BASIC  language  requirements.  You  might 
place  the  MATRIX  commands  in  a  “desirable” 
software  category.  (MATRIX  commands  take 
up  an  awfully  large  amount  of  user  space  on 
core-based  minis.  Be  sure  to  require  the  ability 
to  delete  the  MATRIX  commands  at  your  will 
to  gain  user  space  when  MAT  isn't  used.  Then 
you  only  have  to  load  the  MAT  commands  when 
you  need  them.) 


To  tfus  standard  BASIC  you  should  add  the 
requirement  of  a  TAB  command  which  will 
help  formatting  output  and  the  MULTI-BRANCH 
GOTO  (ON  x  GOTO  100.  200,  300)  which  you 


will  find  invaluable. 


If  you’re  really  getting  into  it,  you’ll  want 
STRING  VARIABLE  capability  on  your  system. 
String  variable  commands  allow  you  to  manipu¬ 
late  alphabetic  data.  Some  systems  will  only 
allow  strings  of  lengths  from  6  to  18  characters, 
depending  on  the  system.  This  is  almost  like  no 
strings  at  all.  HP  allows  strings  of  72  characters 
(one  full  TTY  line)  on  the  2000  series.  DEC’S 
BASIC  PLUS  language  will  handle  strings  as 
large  as  255  characters.  In  addition  to  having 
strings  you  should  specify  the  ability  to  use 
relational  operators  (<,  =,  >)  with  strings  so  you 
can  do  such  things  as  compare  strings  and 
arrange  them  in  alphabetic  order.  To  round  out 
your  string  variable  capability  you  should  re¬ 
quire  the  ability  to  concatenate  strings  and 
separate  strings  using  substring  commands. 

In  the  category  of  “preferred  and  awfully  nice” 
(but  not  necessary)  we  place  the  ability  to 
store  strings  in  arrays  or  string  array  capability. 
This  feature  is  now  available  one  some  of  the 
newer,  super  BASIC  systems  that  are  coming 
out. 


Next  in  order  of  preference,  we  see  the  need 
to  CHAIN  programs,  that  is  to  link  two  or 
more  programs  together  for  continuous  operation. 
With  CHAIN  you  must  have  a  COMMON  state¬ 
ment  which  allows  carrying  a  variable  forward 
from  one  program  to  another.  Some  systems 
offer  CHAIN  but  not  COMMON,  caveat  emptor. 

The  following  BASIC  features  are  not  in  any 
meaningful  order  but  we  suggest  you  evaluate 
each  on  its’  merits  and  use  them  in  your  specs 

as  you  see  fit, ...  as  required, . . .  preferred _ 

not  necessary. 

PRINT  USING  or  picture  formatting  as  a 
BASIC  command.  This  gives  you  the  ability 
to  control  output  format  with  more  precision 
and  without  some  fancy  programming  shenan¬ 
igans.  Especially  useful  for  business  applications. 


Multiple  statements  per  line  —  DEC  has  a  neat 
user  space  saving  feature  that  permits  you  to 
put  multiple  statements  on  one  line. 

10  FOR  X=1  TO  I0NPRINT  X\NEXT  X 

If  you’re  looking  at  a  core  based  mini  this  is 
almost  a  necessity. 

Immediate  or  calculator  mode  -  allows  you  to 
execute  unnumbered  statements  without  writing 
a  complete  program  and  without  having  to 
scratch  (he  existing  program.  The  statement 
may  be  any  legit  BASIC  statement,  even  including 
a  looping  one. 

ENTER  permits  limiting  the  time  a  user  has  to 
input  a  value.  Absolutely  essential  for  CAI  and 
nice  to  have  for  simulations  and  games. 

File  capability  -  the  ability  to  store  data  in 
, sequential  and  random  access  files.  You  should 
specify  how  many  files  can  be  accessed  at  one 
time  (4  to  10),  how  much  data  each  file  should 
be  able  to  handle.  These  figures  will  vary  wildly 
from  system  to  system. 

Logical  operators  -  AND,  OR,  NOT  operators 
available  to  use  on  all  data. 

Peripheral  drivers  -  if  you  are  buying  card  readers 
etc.,  we  repeat  again,  specify  (REQUIRE)  that  the 
BASIC  software  include  the  ability  to  effectively 
use  these  items  by  terminal  users. 

There  must  be  other  BASIC  features  but  we’re 
out  of  gas!  If  you’re  seeking  a  large  disk  time 
sharing  system  than  you  must  require  a  full 
compliment  of  system  accounting  features 
including  _t  number  of  assignable  user  numbers, 
file  protection  for  each  user,  and  the  ability  to 
keep  track  of  time  and  space  for  each  user.  You 
should  also  require  that  the  system  have  a  Public 
Library  capability  which  allows  all  users  to  access 
the  programs  in  this  library,  AND  require  that 
the  vendor  provide  you  with  at  least  200  programs 
for  this  library  each  of  which  be  suited  for 
educational  use  at  your  level.  HP  (maybe  DEC  too 
lias  a  nice  feature  called  a  GROUP  library.  Users 
with  similar  user  numbers  have  access  to  this 
library  in  addition  to  the  Public  Library.  This 
feature  is  appropriate  in  a  consortium  installation 
where  each  school  may  like  its  own  library  in 
addition  to  the  Public  one. 

We  hate  to  say  this,  but  these  are  the  recommended 
requirements  for  one  language.  If  you  are  con¬ 
cerned  with  other  languages  you  should  take  some 
time  to  specify  your  needs  for  that  or  those  langu¬ 
ages  as  well. 

Is  it  hardware  or  software?  Someplace  you  should 
require  a  reasonable  response  time  when  the  system 
is  in  full  use.  What’s  reasonable???  How  about  5 
seconds  after  pressing  RETURN  when  all  1 6  (or  32 


At  the  present  time  there  is  a  Standards 
Committee  meeting  to  establish  stand¬ 
ards  for  the  BASIC  language  and  all  its 
improvements.  This  article  has  com¬ 
pletely  disregarded  the  existence  of  these 
standards.  When  they  become  available, 
we  will  print  them  so  you  can  require 
the  established  standards  on  your  system. 


LETTERS  - 


G.  HarLand 
10303-98  Avenue 
Edmonton  Alb*ta  T5KOC3 
CANADA 


Showed  the  paper  around  a  kit  and  found  that  tht  computer  people  ware  very 
Interested  (re,  the  Computing  Services  subscription!  and  non-com  purer  people 
were  a  bit  bedazzled  .  T ,  if  you  could  do  something  in  the  way  of  •  simple  analogue 
to  help  explain  how  a  computer  sort  of  goes  about  its  business  I  think  it  might 
help, 

I  hesitate  getting  too  deep  into  That: 

1 1 }  because  the  computers  themselves  can  provide  an  enporienc®  worth  much 
more  than  a  newspaper  article* 

[2\  for  fear  of  the  "Rtdlcat  Software  Effact  .  ~  I  likesoftwana  but  couldn't 
do  much  with  until  I  had  a  few  personal  exchanges  with  a  poru-pak  under 
by  belt. 

U  of  A  has  a  whole  mess  of  computers:  IBM  360/8F  J4Q/1800.  POP0{18),  PDPBEI2), 

HP  2116*  MR  2114,  06C  NOVA  |3),  HON  OOP  316,  HON  ODP  516*  NIC  1600, 

EAl  590,  COC  240,  CDC  L6P  30,CDC  3150,  NIC  1800*  XDS920,  HAY  703,  UNI  9200* 
UNI  9300  (2),  BUR  L2301,  but  the  only  one  I've  ever  spoken  to  is  the  IBM  360/67  . .  * 

I  don't  even  know  what  the  rest  look  like  or  what  kind  of  magic  they  perform. 

No.  I  don't  have  a  computer .  . ,  do  you  have  a  4K  you  can  spare  * . .  what  do  you  Think 
of  DEC'S  POP  1 6  modules  . . .  I  'm  reading  the  book. 

I'm  kind  of  new  to  computers  realty  and  haven't  got  enough  vocabulary  to  tav  much  more 
more  than  a  few  stupid  sentences  but  ,  .1  found  a  magazine  called  SOFTWARE  - 
Practice  fit  Eh  per  ience.  Periodicals  Department,  John  Wiley  fit  Sons  Ltd.,  Baffin*  Lane, 
Chichester,  Sussex,  ENGLAND,  S23  A0  USA,  $22.50  CANADA/y ear  (quarterly),  that 
has  a  regular  article  in  the  back  called  Computer  Recreations:  for  example, 

—  DSTwiH  m  UiiTta  vcTiVrTi  COniputv  prCJTwITIt  *'  prCyS™ 

-  "Napolean”  The  Military  Game 

—  "MOD"  or 

-  "CALCOMP"  can't  read  this  stuff 

Seymour  Pa  pert  was  in  Edmonton  a  few  weeks  back  for  some  seminars*  etc,  and 
mentioned: 

(1)  Alan  Kay "i  involvement  in  some  kind  of  computing  thing  (centre?)  for  public 
people  in  Palo  Alto  or  wherever  it  is  that  Xerox  has  its  mutant  farm 
(2}  Xerox's  own  "computers  and  kids"  program 

(3)  Ed  Schlossberg  (of  the  Brooklyn  Children's  M  useum)  and  a  traveling  circus 
that  involved  computers,  inflatable*  ind  a  lot  of  travelling 

(4)  Drs*  Papert  fit  Mlndty'i  own  "computers  &  kids"  thing  ©  MIT  and  General 
Turtle 

Do  you  people  know  anything  about  these  things  or  could  you  find  out  about 
them  and  write  it  up  In  PCC? 


MINNEAPOLIS 


PUBLIC  SCHOOLS 


seecuu*  SCHOOL  IMTPJCT  MO  1 


Jlf!  ?fo mn,  A  Member  of  the  Cornu ter  Club,  did  tHs  cartoon*  T  thought  it 
vae  a  clever  e<*c#  of  vork  and  how  that  fms  n^ht  publish  it  in  a  cominr 
issue  of  your  paper, 

Jim  *fo*n  fives  hi#  content  for  publication*  If  it  la  publiehed  he  would 
like  a  one  extra  copies  of  the  Issue. 

Tours  truly. 
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<3»  CatiFO*MIA  STBtU  SAM  FfUMCftCO  C*Lii  U«Mfa  *41  IS  /  TtLtnaiMI  tilt;  ftj  n«i 
CABL1  *APf  fBAMCr»CO 


would  like  to  know  how  to  fet  the  rest  of  this  school 
year#i  iaaue*.  (Ky  sen  and  1  like  your  ew patina  very  mieh)* 

51a  ce  rely, 

£  Janes  f'cCorfiacic 

P.3*  My  son i  the  naln  conputer  user  *t  our  house r  saysi 

1  don't  have  a  eofn^uter,  but  h*v#  access  to  one  (an  H r 
200C E) 

I  drei*t  have  a  nustc  cmcojer,  but  den't  really  want  one 

The  cheapest  tape  winder  Is  a  celr  of  handle 

I  have  about  five  simil®tion/pt*me  pro-Ti-ams  I  'iv*  written 
(and  more  th^i  are  either  inaccuar’ to  or  not  working) 

I  would  Uko  to  see  siemli tlon/gLEia  pro^rans  that  are  a 
little  more  complex 

1  will  definitely  do  a  par*  in  the  future 


PILOT  ’73 


5  *K0RE  Tl  H  E  R  E  V.'E  G  0  0  0  ! 

10  Tt  HEY,  HEY.  WHAT'S  YOU  SAY?? 

20  A (SCAT 

30  Tl  WHO j  WHO  ARE  YGUUU? 

40  A  t  SNA  HE 

50  Tl  HOW,  HOW  00  YOUU  FEEL  L  L  ? 

£0  AlSFEEL 

70  T  tD0  YOU  LIKE  GRAPEFRUIT  IN  THE  MORNING?? 

80  A: 

90  MtYES,YEAK,OK, SURE, LOVE 

100  Yl SNAKE,  DOES  A  GRAPEFRUIT  FEEL  iFEEL  IN  THE  MORNING? 
MO  Nil  SAY,  SAY  SCAT  TO  YOU! 

120  JI4M0RE 


RUN 

HERE  WEG000! 

HEY,  HEY,  WHAT'S  YOU  SAY?? 

7DINGBATS  ARE  FUNNY 
WHO,  WHO  ARE  YOUUU? 

?KE*  KEE, HEE 

how,  how  De  veuu  feel  l  l  ? 

?KUN  OVER  BY  WATERMELONS 

DO  YOU  LIKE  GRAPEFRUIT  IN  THE  MORNING?? 

?1 LOVE  I  T 

ME,  HEE, HEE,  DOES  A  GRAPEFRUIT  FEEL  RUN  OYER  BY 
WATERMELONS  IN  THE  MORNING? 

HERE  WEGBBCi 
HEY,  HEY,  WHAT’S  YOU  SAY?? 

?• 

bYE 

EDITOR  IN 
EH?  10 
720 
7HUN 

HERE  V.  E  G  0  0  0  ! 

WHO,  WHO  ARE  YOUUU? 

7HENKY 

HCW,  HOW  1)0  YOtlU  FEEL  L  L  ? 

7KUNNYN0SED 

DO  YOU  LIKE  GRAPEFRUIT  IN  THE  MORNING?? 

7NEVEK 

1  SAY,  SAY  CA1  TC  YOU! 

HERE  WE  C*  0  O  0  ! 

WHO,  WHO  ARE  YOUUU? 

?0 

DYE 


U  £  'JAM 

£**^€£7  /r9T'1«4s 

*  I*" m  Tu, 


FOR  THE  REVOLUTIONARY 


—  Put  some  PILOT  Poetry  up!  Find  the  English  Department! 

—  Try  Spanish,  French,  Latin  (?)  in  PILOT! 

T:  HOLA 

—  Invent  some  word  games!!  (Courtesy  Abe  Waksman,  SRI) 

Rr  WORD  GAME  IN  &  OUT 
T:  TROUBLE  IS  OUT,  BUBBLE  IS  IN 
T:  DUCK  IS  OUT,  GOOSE  IS  IN 
T:  FOOT  IS  IN,  SHOE  IS  OUT 
T:  GUESS  THE  RULE-GIVE  ME  A  WORD 
*MOREA:  SWORD 

M:  AA,BB,CC,DD,EE,FF,GG  ,HH ,11 JJ  ,KK,LL,MM 
JY: +NEXT 

M:NN,0O,PP,QQ.RR,SS,TT,UU,VV,WW,XX,YY,ZZ 
N:  SWORD  IS  OUT 
JN:  *MORE 

*NEXTT: SWORD  IS  IN 
J:  *MORE 


10  Tl HI  I  THIS  IS  THE  GAME  OF  ROOMS* 

20  Tt IT'S  LIKE  'HIDE  AND  SEEK'— YOU  PICK  ONE  OF  THE  ROOMS 
30  TlOF  YOUR  HOUSE,  LIKE  THE  KITCHEN  OR 
40  Tire UR  BEDROOM 

SO  Til 'LL  ASK  YOU  'YES'  OR  'NO'  GUESTI0NS 
60  T f AND  TRY  TO  6UES5  YOUR  HIDING  PLACE 
70  Tl 

00  TtPICK  A  ROOM  AND  TELL  ME  WHEN  YOU'RE  READY 

90  4AGA1N  Tl 

100  At 

110  TlOK... 

120  Tl 
130  Tl 

140  Ti IS  FOOD  USUALLY  FOUND  IN  YOUR  ROOM 

ISO  *A£K1  At 

160  Ml  YES 

170  JYI4FO0D 

ISO  M(NO 

190  JY14NOF0OD 

200  Ttl'M  SOORY*. 

210  Ttl'M  SORRY.. .PLEASE  TYPE  'YES'  OR  'NO' 

220  Jl *ASKI 

230  4F03D  Tl GOOD.,. IS  IT  USUALLY  USED  TO  EAT  IN 

240  *ASK2  At 

250  KITES 

260  JY l *KI TCHEN 

270  Ml NO 

280  JY  1 40 IN INGROOM 

290  TlI'M  SORRY... PLEASE  TYPE  'TES*  OR  'NO* 

300  Jt*ASK2 

310  *KI TCHEN  TlARE  YOU  IN  THE  KITCHEN 

320  At 

330  Ml YES 

340  JYl *G0TIT 

350  JNI *GI VEUP 

360  4DININGR0OM  TlARE  YOU  IN  THE  DINING  ROOM 

370  At 

380  Ml  YES 

390  JYt*G3TIT 

400  JNI *GI VEUP 

410  4N0FOOD  T t  HMM. . . IS  YOUR  ROOM  USUALLY  USED  TO  RELAX  IN  BY 

420  Tl EVERYBODY 

430  *ASK3  At 

440  Ml  YES 

450  JYI4RELAX 

460  HtNO 

470  JYI4N0RELAX 

480  TlI'M  SORRY... PLEASE  TYPE  'YES*  OR  *N0* 

490  Jl*ASK3 

500  *RELAX  TlARE  YOU  IN  THE  LIVING  ROOM 

S10  At 

520  Ml YES 

530  JYI4G0TIT 

540  JNi *GI VEUP 

550  4N0RELAX  TlDOES  SOMEONE  SLEEP  IN  THIS  ROOM 

560  Al 

570  Ml  YES 

580  JYl*BEDRO0M 

590  MlN0 

600  JYI*GIVEUP 

610  JNI4HASH 

620  * BED ROOM  TlIS  IT  THE  BEDROOM 

630  A  l 

640  Ml YES 

650  JYI*GOTIT 

660  JNI4GIVEUP 

670  *WASH  TlDO  PEOPLE  WASH  UP  IN  YOUR  ROOM 

680  At 
690  Ml YES 
700  JY : 4BATHR00M 
710  JN14UNDF-R 

720  4BATHR0HK  TlARE  YOU  IN  THE  BATHROOM 
730  At 
740  Mi  YES 

750  JYi *GOT IT 
760  JNI4G1VEUP 

770  * UNDER  TlARE  YOU  IN  THE  BASEMENT 

780  Al 

790  Ml  YES 

800  JYt*G0TlT 

BIO  JNI4GARAGE 

820  * GARAGE  TlARE  YOU  IN  THE  GARAGE 

(130  A  i 

640  Ml YES 

850  JYI4G0TIT 

660  JNH-GIVEUP 

B70  *GGT I T  Tl 

800  T l THAT  WAS  FUNl 

890  JM-AGAIN? 

900  4QIVEUP  Tt I  GIVE  UP.  WHAT  ROOM  ARE  YOU  HIDING  IN 
910  Al 

920  TI0H...I  SEEt 

930  *A GAIN?  T i WANT  TO  PLAY  AGAIN 

940  Al 

950  MtY, YES, OK, ALRIGHT, SURE 
960  JNtfPUT 

970  TtPICK  A*. OTHER  ROOM  AND  TELL  ME  WHEN  YOU'RE  READY 
9C0  JitAUAIN 
990  *0 UT  Et 


TRUN 

HI  I  THIS  IS  THE  GAME  OF  ROOMS. 

IT'S  LIKE  'HIDE  AND  SEEK’— YOU  PICK  ONE  OF  THE  ROOMS 
OF  YOUR  HOUSE,  LIKE  THE  KITCHEN  OR 
YOUR  BEDROOM 

I'LL  ASK  YOU  'YES*  OR  *N0'  QUESTIONS 
AND  TRY  TO  GUESS  YOUR  HIDING  PLACE 

PICK  A  ROOM  AND  TELL  ME  WHEN  YOU'RE  READY 

1READY 

OK... 


IS  FOOD  USUALLY  FOUND  IN  YOUR  ROOM 
TNO 

HMM... IS  YOUR  ROOM  USUALLY  USED  TO  RELAX  IN  BY 

EVERYBODY 

TYES 

ARE  YOU  IN  THE  LIVING  ROOM 
TYES 


THAT  WAS  FUNl 
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These  PILOT  73  instructions  are  the  “core”  instructions 
selected  by  the  makers  of  the  language.  Many  implemen¬ 
tations  will  have  more  instructions,  some  may  have  fewer. 
The  idea  is  to  keep  the  core  set  in  every  implementation. 

.4  note  al/nut  entering  progmms: 

The  program  that  makes  PILOT  73  work  is  usually  called 
“the  Editor.”  This  program  varies  in  language  and  operation 
from  system  to  system.  This  miniprimer  is  a  description  of 
the  language  only;  we  assume  that  you  will  learn  about  your 
Editor  from  the  people  who  set  up  PILOT  73  on  the  system 
you  will  use. 


^5 


T 


TALKING  COMPUTER: 

To  make  the  computer  talk,  you  use  the  T:  instruction  (for 
TYPE).  When  you  run  this  program 

Tl HELLO 

the  computer  says 

HELLO 

(T:  is  just  like  BASIC  " PRINT ") 

You  can  use  the  T:  to  make  the  computer  prim  pictures ! 

Tl 
T* 

Tl 
Tl 
Tl 
Tl 
Tl 

Or  to  tell  stories,  etc. 

T I THIS  IS  THE  STORY  0F  THE  DOWNFALL  OF  THE  NIEBEL 

(The  program  is  left  for  your  completion.  Use  extra  pages  if  you  wish. ) 

TALKING  TO  THE  COMPUTER: 

To  get  the  computer  to  lei  you  get  in  a  word  or  two  (or  more),  you 
use  the  A:  instruction  (for  ANSWER)  When  you  run  this  program 

A» 

the  computer  types 


THE  COMPUTER  TALKS  SOME  MORE: 

WHAT  IS  YOUR  NAME 

7FEARLESS  FRED 

HELLO *  THERE*  FEARLESS  FRED 


$ 


How  did  the  computer  do  that ?  By  using  an  answer  label.  Here 's  the 
program: 


1  -  -  C 

'  CO  0)  I 
C  A  1 
C  I*#  3 
t  1 
\\>§<// 


T I WHAT  IS  YOUR  NAME 
AtSNAME 


-this  is  an  answer  label 


A 


then  waits  for  your  response.  After  you  have  typed  in  something  and 
pressed  the  RETURN  key,  the  computer  will  continue  with  the  rest 
of  the  program  ( if  any). 

Here 's  a  short  program 

Tl THIS  IS  THE  QUESTION 
T *  WHAT  IS  YOUR  B1RTHSIGN 
At 

T I THAT'S  NICE 

When  you  run  this  program,  here’s  what  happens: 

THIS  IS  THE  QUESTION 
WHAT  IS  YOUR  BIRTHSIGN 
? 

Then  the  computer  waits  for  your  answer ...  .  If  you  then  type 


T I HELLO*  THERE*  SNAME 

Let 's  look  at  some  more  computer  talk: 

T I WHAT'S  YOUR  NAME 
AtSNAME 

TlHOW  OLD  ARE  YOU  (IN  YEARS) 

A i SAGE 

T I  WHERE  DO  YOU  LIVE 
AiSLIVE 

TtSO*  YOUR  NAME  IS  SNAME*  AND  YOU  LIVE  IN  SLIVE 
TlAND  YOU  ARE  SAGE  YEARS  OLD. 

1  See  how  answer  labels  work?  The  $  means  “ the  next  characters  are  an 
1  answer  Libel  ”  When  the  computer  sees 

AtSNAME 

it  labels  the  response  with  the  label  "SNAME.  ”  Then  when  it  sees: 

Tl YOUR  NAME  IS  SNAME 

,  the  computer  types  the  first  part 

YOUR  NAME  IS 

then  it  looks  for  the  A:  line  which  contains  the  label  SNA  ME.  If 
'  it  can  find  such  a  line .  it  will  type  the  response  which  was  given  there. 
i  If  it  can  V  find  the  line,  or  if  that  tine  hasn  7  been  reached  yet  ( in  the 
i  program),  the  computer  types  the  label. 


WHAT'S  YOUR  NAME 
7CLE0PATRA 

^  HOW  OLD  ARE  YOU  CIN  YEARS) 

^  72500 

'  WHERE  DO  YOU  LIVE 
7EGYPT 

SO*  YOUR  NAME  IS  CLEOPATRA*  AND  YOU  LIVE  IN  EGYP1 
AND  YOU  ARE  2500  YEARS  OLD. 


What  next?  JUMPING! 


♦HERE  Tl I  AM  HERE 
Tl I  AM  THERE 
JttHERE, 


tl 


CAPRICORN 


(followed,  of  course,  by  the  RETURN  key) 


the  computer  continues  with 

* 

THAT'S  NICE 

Now,  you  do  it:  write  a  PILO  T  program  using  T:  and  A:  which 
"behaves” like  the  interviewer  on  a  TV  " talk  show" (like.  Caret t, 
(arson,  etc  ).  That  is.  it  asks  question  after  question,  without  paying 
attention  to  the  answers  at  all. 


(  This  is  a 
line  label) 


When  you  R  UN  this,  the  computer  says: 


I  AM  HERE 
X  AM  THERE 
I  AM  HERE 
I  AM  THERE 
I  AM  HERE 

etc. .  until  you  stop  the  computer  ( BREA  K  key  on  some  systems).  You 
use  a  line  label  (like  *HERE.  *  LAB  EL.  *  ST  ART,  etc.)  to  tell  the  J: 
instruction  (for  JUMP)  where  to  jump. 


Or.  it  that  s  not  your  cup  of  T  .  try  simulating  Mother  Goose.  Here 's 
a  typical  MG.  telling  a  story  to  her  children 

WHEN  SHE  HEARD  THIS*  THE  WICKED  WITCH  JUMPED  ON  HER 
BROOMSTICK*  AND  HEADED  AS  FAST  AS  SHE  COULD  FLY  BACK 
TO  HER  HOUSE  IN  THE  WOODS. 

AND  WHAT  DO  YOU  THINK  SHE  DID  WHEN  SHE  GOT  THERE 

7ATE  UP  THE  KIDS  - - 

7N0*  SHE  JUST  CHASED  THEM  -*~^MG 's  ehihlren  reply 
70000*  THE  WICKED  WITCH1 
WELL*  WHEN  SHE  GOT  THERE,  THE  FIRST  THING  SHE  DID  WAS... 

(Well,  what  was  the  first  thing  she  did?) 


♦HERE  Tl I  AM  HERE 
Jl ♦THERE 

♦WHERE  T I  WHERE  AM  I? 
J I ♦HERE 

♦THERE  Tl I  AM  THERE 
Jl ♦WHERE 


will  produce  the  same  result  as 


♦BEGIN  Til  AM  HERE 
Til  AM  THERE 
T I WHERE  AM  17 
Jl ♦BEGIN 
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What  is  the  result? 


Here 's  a  "fancy"  way  to  jump  for,  here  come  subroutines): 

♦BEGIN  T« HERE'S  THE  START 
Ut  ♦MI DOLE 
Tt  THIS  IS  THE  END 
Jl^END 

♦MIDDLE  T I THIS  IS  THE  MIDDLE 
Et 

♦END  T l GOODBYE 
Et 

TR  UN 

HERE'S  THE  START 
THIS  IS  THE  MIDDLE 
THIS  IS  THE  END 
G00DBYE 

So, 

U:  (for  USE )  acts  just  like  J:  (jumps  to  a  label) 

E:  ( for  END)  does  two  things 

( 1 )  Ends  the  whole  program  ( like  BA  SIC  “ END  ").  The  last  E:  in 
the  program  above  does  this,  right  after  the  label  *END 

(2)  If  a  U:  line  has  been  executed,  E:  returns  the  computer  to  the 
line  following  the  U:.  The  first  E:  above,  right  after  the  label 
*MIDDLE.  does  this.  When  the  computer  reaches  this  instruc¬ 
tion,  it  automatically  jumps  back  to  the  line  right  after  the  U: 
instruction. 

THE  WORLD  OF  M: 

The  M:  instruction  (for  MA  TCI I)  is  used  to  make  the  computer  a 

little  "smarter.  "  LOOK  HERE 
* 

TtD0  Y0U  KN0W  WHAT  DARWIN  IS  FAM0US  F0R 
At 

Mt EVOLUTION# SPECIES# BEAGLE 
TY  t  F0UND  A  MATCHI 
TNIN0  MATCH 

?RUN 

D0  Y0U  KNOW  WHAT  DARWIN  IS  FAM0US  F0R 

7 

Now,  if  the  responder  types  in  one  of  the  three  M:  items,  a  "match  " 
will  be  found. 

If  a  match  is  found,  the  value  of  M:  is  "YES”  (  Y). 

If  no  match  is  found,  the  value  of  M:  is  “ NO"(N ). 

M:  executes  a  character  by  character  string  comparison  of  the  response 
given  to  A:,  with  each  of  the  M:  items,  one  item  at  a  time.  (In  other 
words,  a  "moving  window" comparison. ) 

M:  takes  everything  literally.  Suppose  we  run  the  above  program. 

D0  Y0U  KN0W  WHAT  DARWIN  IS  FAM0US  F0R 

?N0  - an  honest  answer.  .  . 

N0  MATCH 

M:  is  NO 
Again: 

D0  Y0U  KN0W  WHAT  DARWIN  IS  FAM0US  F0R 
? INVENTED  SPESES 
N0  MATCH 

(M:  is  NO  ‘cause  the  responder  can 7  spell.) 

Once  more: 

D0  Y0U  KN0W  WHAT  DARWIN  IS  FAM0US  F0R 
7THE0RY  0F  E V0LUTI0N 
F0UND  A  MATCH! 

CM:  is  YES,  since  the  A:  matches  one  of  the  M:  items.) 

To  get  the  computer  to  "ignore  "  irrelevant  spelling  errors  and/or 
extra  text,  the  M:  items  may  consist  of  a  few  consecutive 
characters  of  the  desired  response,  for  example: 

MtEV0L#SPE#BEAG 

You  may  get  in  a  little  trouble  with  this  approach.  Consider: 

D0  Y0U  KN0W  WHAT  DARWIN  IS  FAMOUS  F0R 
7THE  SEXUAL  REV0LUT10N 

If  the  M:  line  is 

Mt EV0L*SPE#8EAG 

then  M.  will  find  a  match,  because  REVOLUTION  contains  one  of 
the  M:  items. 
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This  should  help  you  to  figure  out  how  M:  works.  That  s  only  the 
first  part.  Next,  let 's  do  something  with  the  value  of  M:.  Look  at 
this  program: 

Tt WHAT  AMERICAN  WAS  THE  'FATHER  0F  HIS  COUNTRY* 
At 

> Ml GEO# WASH 

TYlGOOD  F0R  YOU#  SMARTY# 

JYI+END 

TtSORRY#  THAT'S  NOT  IT 
♦END  Et 


1  If  M:  is  Y  after  execution,  the  instructions 

rY*G00D  FOR  YOU#  SMARTY# 
‘JYi*END 


>  will  be  performed.  If  no  match  is  found.  M:  will  be  N,  and  ail  Y: 
;  instructions  will  be  skipped.  Here  s  the  R  UN: 


jWHAT  AMERICAN  WAS  THE  'FATHER  OF  HIS  COUNTRY* 
:?SAM  SPADE 
SORRY #  THAT'S  NOT  IT 

?  Let 's  try  again 

?WHAT  AMERICAN  WAS  THE  'FATHER  OF  HIS  COUNTRY' 
^WASHINGTON 

:good  for  you#  smarty# 


\ Because  M:  is  YES,  the  JY:  instruction  jumps  to  the  line 
i  labeled  mEND. 


!  Any  PILOT  73  instruction  can  be  make  "conditional” on  the  last  M: 

■  line  executed  by  adding  Y  or  N  to  the  instruction. 

Examples: 

AY  JN  MN  UY  EN  MY 

A  few  other  details: 

(1 )  M:  looks  at  the  last  A:  executed. 

(2)  M:  lines  can  contain  as  many  items  as  you  can  fit  in  a  tine, 
f  3)  TY:  can  be  written  as  just  Y: 

( 4)  TN:  can  be  written  as  just  N: 

(5)  Each  time  a  new  M:  line  is  executed ,  the  value  (that  is.  Y  or  N) 
of  any  previous  M:  line  is  erased. 

Example: 

T I WHERE  IS  THE  LARGEST  STOCK  MARKET  LOCATED# 
TtNEW  YORK#  MOSCOW#  OR  LONDON 
At 

Ml NEW# YORK# NY 
Yt RIGHT  ON 
JYt+END 
Ml  MSS 

Yl SORRY#  THE  RUSSIANS  AREN'T  CAPITALISTS  < YET) 
JY: ♦END 
MN  t  LON 

Y I  SORRY#  THE  SUN  HAS  SET  ON  THE  EMPIRE 
♦END  El 

?RUN 

WHERE  IS  THE  LARGEST  STOCK  MARKET  LOCATED# 

NEW  YORK#  MOSCOW#  OR  LONDON 
7M0SCOW 

SORRY#  THE  RUSSIANS  AREN'T  CAPITALISTS  <YET) 
?RUN 


WHERE  IS  THE  LARGEST  STOCK  MARKET  LOCATED# 
NEW  YORK#  MOSCOW#  OR  LONDON 
7L0ND0N 

SORRY#  THE  SUN  HAS  SET  ON  THE  EMPIRE 
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PILOT  PRICDEO  ANNEX 


NUMBERS  IN  PILOT  73 

The  computer  can  do  number  things,  too  (in  case  you  didn  't  know). 
PILOT  73  commonly  handles  numbers  and  expressions  fust  like  BA  SIC 


PCC  PILOT  HAS: 


T:  A:  *label 

Y:  M:  $  LABEL 

N:  J: 

R:  .  E: 

PCC  PILOT  DOES  NOT  HAVE: 


To  allow  you  to  enter  a  number  while  a  program  is  running,  use 


("X"  can  be  any  of  the  26  alphabet  letters.  Some 
**  systems  will  allow  you  to  use  more  than  one  letter.  ) 

Then,  you  can  use  the  C:  instruction  (for  COMPUTE)  to  get  the  com¬ 
puter  to  evaluate  expressions. 

Ct  Y*2#X  (Y  =  2*X  is  the  expression) 


C:  works  fust  like  a  BASIC  '‘LET"  statement.  The  expression  must 
contain  legal  BASIC  arithmetic  symbols,  and  any  letter  variables  must 
have  been  assigned  values  previous  to  the  C:  instruction. 

If  you’re  doing  a  lot  with  numbers  and  algebraic  expressions,  there 
are  some  other  things  about  PILOT  73  to  learn.  ( Or  go  learn  BASIC!) 
We'll  hold  the  messy  details  for  future  issues. 


U:  #label 

C: 


tiller  iivjjf  4u.;!>  iliilti p  4i|p*  4l®P 


To  insert  remarks  in  your  program,  use 
R:  (for  REMARK) 

R:  lines  don ’t  print  or  do  anything  else.  They  are  for  the 
programmer ! s  comments.  Example  - 


Rt  THIS  IS  REMARKABLE  I 


F: 


To  continue  a  line,  (especially  M:  and  T:)  fust  begin  the  next 
line  with  a  colon.  Example  -  ^ 

Tl THIS  IS  THE  FIRST  PART*  AND 
ITHIS  IS  THE  CONTINUATION  • 


FOR  COMPUTER  FREAKS  ONLY  {AND  FOOLS} 

I-  PRELUDE  TO  THE  EDITOR 

THESE  PROGRAMS  WERE  MADE  TO  FIT  THE 
HP  2D0DE  Ca  THEREFORE-.  B000C  a  F}.  THREE 
BIG  LIMITATIONS  IN  HP  BASIC  {5D00  VARIETY} 
ARE  {1}  STRINGS  MAXIMUM  LENGTH  =  72  CHAR¬ 
ACTERS  i  {2}  NO  CHRCX}  AND  NUMCXS}  FUNCTIONS 
<3}  YOU  CAN'T  RUN  A  DATA  FILE i  EVEN  IF  IT'S 
FULL  OF  PERFECT  BASIC  STATEMENTS- 

THOSE  OF  YOU  WITH  BSb  WORD  DISC  RECORDS 
MAY  WISH  TO  CHANGE  THESE  PROGRAMS-.  AS  PILOT 
1  AND  PILOT  2  WORK  ON  46  RECORD  X  126  WORD 
FILES-  {PLEASE,  AFTER  THIS  ONE  WORKS  FOR 
YOU-} 


THE  EDITOR  KEEPS  TRACK  OF  ALL  THIS  AS  YOU 
ENTER  a  EDIT  YOUR  PILOT  PROGRAMS-  YOU 
CAN’T  FOUL  THINGS  UP  AS  EACH  COMMAND  OR 
LINE  IS  PERFORMED,  THE  DISK  FILE  IS  UP¬ 
DATED- 

SCR  DOES  THIS: 

AO  O  O  O  STRINGS  -  fJUL  STRINGS, 

B  1  2  3  H  G/  RecoRp 

III-  PRELUDE  TO  THE  INTERPRETER 

PILOT  IS  STRAIGHTFORWARD  TO  INTERPRET- 
THIS  HAS  BEEN  PATCHED  OVER  A  LOT,  BUT  IF 
YOU  CAN  DO  CLEANER  CODE,  GROOVY-  DUE  TO 
SPACE  LIMITATIONS,  THE  RSMS  HAVE  BEEN 
ELIMINATED  -  MAKE  YOUR  OWN- 


II-  ORGANIZATION  OF  THE  EDITOR 
FILE  "TEST"  LOOKS  LIKE  THIS: 


)  A  c H  c  (zhq)  JjJ  $  strings 

r  t  t  t 

i  5  9  HQ 

A  CONTAINS  LINE  NUMBERS-  ZER0=END  OF 

PILOT  PROGRAM 

B  CONTAINS  ADDRESSES  IN  ^STRINGS  PORTION- 


A  a  B  ARE  SAME  AS  IN  THE  EDITOR.  BE 
SURE  OF  AT  LEAST  241  ELEMENTS-  {THE 
EXTRA  IS  FOR  OCCASIONAL  LOOP  OVERLOAD! 

M  a  L  ARE  SYMBOL  TABLES.  M  HOLDS 
STRING  ADDRESS  OF  A  #LABEL  -  L  HOLDS  STRING 
HASHCODED  LABEL  NAME- 

S  STORES  ^VARIABLES  {HASHCODED}-  INDEX 
OF  S=STRING  ADDRESS  IN  FILE  ’E’  E  HAS  4, 
LU  CHARACTER  STRINGS/RECORD, 


^STRINGS*  LOOK  LIKE: 


l  2 


3 


IV-  HASHCODING  {MAKING  STRINGS  BECOME  A 
NUMBER} 

HERE'S  A  NEAT  METHOD  {COURTESY  PETE 
ROWE!  CALLED  -  LOGARITHMIC  GODELIZATION - 


SIX  STRINGS  IN  EACH  RECORD 
MAXIMUM  LENGTH=41  CHARACTERS 

A  "B"  ADDRESS= ADDRESS  OF  STRING- 
FIRST  STRINGS 
47TH  STRING=47 


{1}  TAKE  EACH  POSITION  OF  THE  STRING  {LABEL} 
AND  ASSIGN  IT  A  PRIME  NUMBER- 


l  3 


il 


O 


17  j  17  J  Z3~]  ALLOW 


LONG  STRINGS  {>41  CH}  ARE  BROKEN  UP  INTO 
TWO  STRINGS  a  SAVED  SEPARATELY-  THE  LINE 
NUMBER  IS  REPEATED  - 


A 

B 


LONG 
STRING- 


NO 

M  OR£ 
PROG-RAM 


K>  20 

30 

30 

Ho 

50 

GO 

O 

1  2 

(7 

s 

7 

G 

8 

{2!  ASSIGN  A  NUMERIC  VALUE  TO  EACH  LEGAL 
CHARACTER,  LIKE: 

*  $  A  B  C  D .  2-0..  -9 

i  a.  3  w  S  <*  fJ  3#  . 

{3}  THEN  CONSTRUCT  A  LABEL  LIKE  "ABA"  THE 
NUMERIC  VALUE  OF  THIS  WOULD  BE 


Ni 


¥  -  V  (-3* - VALUf  Of  t*-rr*R 

W  *  *3  - - -A53<JC(ATeO  WJITliWAL  PSIrtf 

THIS  IS  CALLED  "GODELIZATION-"  SINCE 
N1  GROWS  A  BIT  RAPIDLY,  WE  USE  LOGS: 


LINE  NUMBER  ID  IS  IN  ADDRESS  1 

LINE  NUMBER  3G  IS  IN  4,  2ND  HALF  IN  17 


{4}  ff -  LOG  C^O  = 

3  *  LOG  C 2f)  +  4  *  LOG  (3)  +■  3  *  LOG  (.5) 
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ERGO:  "LOGARITHMIC  GODELIZATION- 


MLflTl 


COM  Ki  t  I  3* 

KEH-PILiT  73  SYSTEM  hX  GREGORY  YPb 
REM-2296  bhYANT  PALO  ALTO  GAL-  326-*039 

1-1 

HEM-  COFYWlGHTmTP 

DIM  Alt*!  JtbitAl  )^S(4I  I#  Di  1 4 1  3,ESC4|  ],Fi(*t  1 
DIM  SIC  712  3*  0S( 72 1 
DIM  T*|72| 

kEM-SET  PQ  TO  LENGTH  OF  Si  AND  01  IM  AG0VE 

PO  «7S?  an  your 

DIM  At2501,BtP5O3rLC503*MC5O  J 

FAM  t+rvjm  »  taJt  *mn*  ur  «  rtrard 

FSB  rJtriiurj  wAirJt  rrconf  m  arrm 

T  fHv  *  iSJrtrtMm  if  Iflll.talftt  ft  APL  Thw  (/rirrfJ 
trhrlhrr  m  rtanH  prufmm  U  BVN  Of  mn  pfti'nnuh 


PILOT  1 


00 

D£F  rNAIX7*X-INTCCX- 

J  1/6  > 

to 

DEF  FNb ( X  >  *  I NT  I <  X- 1  3/61*1 

20 

IF  KS4f*>*  THEN  190 

30 

PRINT  INSTRUCTIONS44 

! 

40 

INPUT  Si 

SO 

IF  SiU*l]#l*Y4t 

THEN 

190 

60 

CHAIN  4*P  IL0T3** 

90 

FILES  TEST* E 

00 

IF  END  4  1  1  HEN 

260 

to 

READ  mi 

20 

mat  HEAD  mA 

30 

READ  41,5 

40 

MAT  READ  *  1  lb 

50 

GOTO  310 

60 

GO SUB  5690 

00 

PHInT  44  SCRATCH 

PERFORMED 

10 

REM -EDITOR  PROGRAM 

20 

PRINT  "EDITOR  IN41 

30 

PRINT  4*EH‘*| 

40 

input  Si 

50 

16=0 

60 

GO sub  5410 

70 

IF  H* 1  THEN  2000 

80 

R£M-NUMEHIC  COMMANDS 

90 

IF  Si£W2  3*<477i4  THEN 

700 

CO 

IF  SSCIrU**4?1* 

THEN 

900 

,10 

IF  Si**M*  THEN  1000 

20 

REM -DELETE  A  L INt 

30 

F0K  1*1  TO  240 

40 

IF  AM  !=N  THEN 

470 

*50 

NEXT  1 

i60 

GOTO  340 

.70 

IF  Atl  +  n*N  THEN  5B0w 

80 

REM- SINGLE  LINE 

90 

P*bi 1 1 

GO 

FOR  J=I  TC  239 

•10 

AC J  )-At J* I 3 

20 

Bt J3*B( J+l 3 

30 

NEXT  J 

,40 

At 240 3=0 

.50 

B[2401=P 

.60 

GO SUB  5200 

•70 

GG1C  340 

■80 

rem-deu&u  line 

■90 

p*btn 

X>0 

pi«bt i+i 3 

.10 

FOR  J* I  TO  238 

ACJ3=AU*21 

ao 

Bt  J3*BU+2) 

,40 

NEXT  J 

,50 

At240J=A[239J=3 

D 

i60 

B1239 J=P 

170 

BE 2401-PI 

,60 

02 Sub  5200 

V90 

GOTO  340 

100 

kLM-LIST  TEN  LINES 

no 

FOR  1=1  TO  240 

120 

IF  AM  J  >■  N  THEN  750 

130 

Nl  XT  1 

140 

GOTO  340 

150 

PRINT 

160 

Jt*0 

170 

IF  J»>10  THEN 

B70 

180 

GOSUU  5270 

190 

II  A!  1+1  )4 At  I  3 

1  HEN 

820 

300 

1*1  *  1 

*10 

IF  Si=44<*  THEN 

870 

i20 

PRINT  AI I 3*5* 

§30 

1*1+1 

*40 

||  AUJ+1  THEN 

870 

650 

31 *JI+l 

860 

GOTO  770 

870 

PRINT  *”* 

mo 

G8T0  340 

890 

RFM-HNt  LINE 

900 

|0R  J^l  T«  PAN 

910 

|F  A|J3  =  N  THEN  940 

920 

NEXT  4 

930 

GCT0  340 

940 

PRINT  MM 

950 

I*J 

960 

GUSUb  5270 

970 

PRINT  AC  I  315* 

980 

PRINT  *“* 

990 

GOTO  340 

■morj^Lw  ^ini  tac*  to  *■ PILOT  f  * 

Cliffy*  dtjf/rrf  if  I,  *m-/i  .Yj ojV rt  -r/  ftlVC 

Ctacbf  ibibr  to  imumUi*  (SCRATCH)  pH*  film  fTISf) 

Absorb  A  and  B  *j Tart 

S[f»  JMO  in/takat*  fta  /Ur  TEST 

ILE"  Juit  *  nmim&rr 

Fwrit  thmy  you  wi  in  A  US  or  rtiutn  m#  /mm  ft) LOT  2 
Mico  ifi  itirjpi  ramflMiiJ 
S|  *oiYi  ;mt uspaf  for  pom*#,  tic. 

517)  54 JO  (f«i  to<rJ  a  /mr  aamtar  tf*  -,1  *  *«•  numtan  /ounJ 
Branch  to  fR UNJIF VJSCfl  JLt$t 

Lam  700  lull  10  taui,  UoMWino 

^  ul;  *  nun  tar,  dr  bit 
DELETE  LAVES 

*  Wfr  ta*  fiuntaf  t/Joulb 


-  5th«Yf  tar  4rktait 


SUB  $*QQ  kiwi  4  ft  on  <fo* 


-  f^iufck  tar  tftirti# a 

(ArirboB  bo  aim,  J’ttffiplfljr  A  *«*  j,  Lnpjq^Jl  arrot  j 
mi/  *»inf  adt/iru  of  f«d  of  B  army  for  tioihbk  , pat* 
tta/nta 


iPlrntj 


tar  o«  mtaf 


#pii  /at  A1**  lint  fr»<S  m  PPH45/C 


SI  ’ll  £370  ta,l*  «j.  ihr  *iruw 
Ckrrk  if  itnvhlm  irticih 


fcWii  (*f  6*'tar  H  >o  UP  BASIC 

WWW  /.ill  iiiii  lint 


""b/of  fcflf/^r/# 


1000 
1010 
1020 
1030 
1040 
1050 
10*0 
1070 
1000 
1090 
1100 
1110 
1120 
1130 
1140 
I  ISO 
1160 
1170 
1100 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1360 
1390 
1 400 
1410 
1420 
1430 
1440 
l  450 
1460 
1470 
1480 
1  490 
ISOO 
1S10 
1520 
1530 
1540 
1550 
1560 


Sit  or  am 


t  rn  tar  fhovwtt  port  ofrdttar) 


Ofcrdl  if  aitmnlr 
Ofti  tfU 


mo-l m  Qtctwrit*  ~  fombk  mar m: 

SINGLE 

Stn^M  lnjih  inpu  t 

/bn Mr  <r«*t*  inpuf 


/I10 
/  ISO 


SLTS  19 to  trumpt  1 W  B  Mtai  ■  tab/ 

511  SOW  Uarri  ttnng  on  duk 


REM-  INSERT  OF  OVERWRITE 
for  i=i  lo  240 

IF  At  I  J*N  THEN  1090 
If  fl(H»N  THEN  1400 
IF  At  1  lap  THEN  1 570 
NEXT  I 

Pk  1X1  "N0  MOKE  SPACE"4 
GOTO  340 
FtEM-OVEkWk  ITT 
IF  1*1 >240  THEN  ItlO 
IF  At  I  l*At  !  +  l  1  Thilt  1250 
HEW-  OkE  LINE  IN  FILE 
IF  LENtSi>^4l  THEN  1160 
CO SUb  5040 
GOTO  340 

kEM-  TMU  LINE  iNSEkTt  ONE  LINE  IN  FILE 
Ti=Si 

SliS&{  U41  1 
GO SUB  5040 
1*1*1 

$*•15(42) 

COSUB  1910 
GO  SUD  5040 
GO  SUE.  5200 
GOTO  340 

hEM-  TLO  LINES  Ik  FILE 
IF  LEN  tS*  >>4 1  THEN  1320 

HEM-  one  LINE  10  PUT  INTO  TU0  LINE  FILE 
G  0  S  Ub  1820  SUB  1*20  malt  6  um/w  A  ond  &  ffdk  *  hAt} 

GOSUb  5040 

GO  SUB  5200  Stm4«W£rtfT«;r 

GOTO  340 

REM”  im  AND  TWO 

Ti*Si 

Si«S5  C I j  4 |  ] 

GO sue  5040 
1  =  1*1 
$S*TSt423 
G0SUB  5040 
GOTO  340 

HEM-  INSERT  ION  1400 1S60  fwi  mm  tar  Irit™  othm 

GO SUB  1910 

IF  LE NC Si  ) > 41  THEN  1470  VMck  tf  d^k  htngth 

REH-  SINGLE  INSERT 
GO SUB  5040 
GOSUb  5200 
GOTO  340 
HEM"  DOUBLE 
TS  =  5S 

55-5*11*41  J 
GO SUb  5040 
I-l+l 
S*«Til421 
GO SUB  1910 
GOSUB  50  40 
GOSUb  5200 
GOTO  3«0 


b 

\ 

* 


OQWIA 

1170 

1S20 


INSERTION 


1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1820 
1830 
1H4Q 
1850 
IK  60 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
I960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
21 10 
2120 
2130 
2140 
2150 
2160 
2170 
21  60 


VfWW  *t*l*f 

Skm  1  tnd  H  nmtyt 
I<  DELLT>  THL  LINE 

Iftlftt'rftff  „>(  }(  ffgtt  thnntt  4  ami  ft  Mr  tht,- 


hem*  last  line  case 

IF  LEN < 5$) *47  THFA  1650 

HEM-  PNE  LlNLt  PLEASE 

A(  I  )sf1 

cesub  5040 

GOSUb  5200 

GOTO  340 

NFM-DCUtLE  IF  YOU  WISH 
At  I  ) - N 
AC  I  +  J  I=N 

ts-s; 

Si-SEUtfll  I 
G0SUU  BO AD 
Sf *Tit4£] 

1  =  I  *  I 

G05UL  5040 
GOSUfc  5200 
MJ1P  340 
HEM-  GIViFN 
P-Htl  1 

Ff*K  TO  239 

A( J)= ACJ* 1  1 
HE J3-BC 3*1  1 
NEXT  A 
AC 240  1=0 

hi  2fl£>  jep 

RKTUKN 

PIN*  GIVEN  I  * 

PbD(240) 

M'h  J=240  TP  1*1  STEP  -I 
At JtaAtj-) ] 

M*n=bE j-|  J 
NEXT  j 

AU]*M 

HIII=P 

RETURN 

HEM -NON  NUMERIC  COMMANDS 
Si*SSI i #3 ) 

IF  S*»"*tH*  THEN  2070 
IF  SS*1,L1S**  THEN  27  00 
IF  Si*t,kENi|  THEN  2220 
IF  Si*#4hUN*'  THEN  2360 
GOTO  330 
HEM*  SCRATCH 
G0SU6  S690 
G0T0  340 
HEM-LIST 
PRINT  ,,,# 

F0k  1-1  TC  240 
IF  At  I  )<l  THEN  2190 
G0SUB  5270 
PRINT  AtIll5S,,4i 


t$7Q  1 740  Ifnrw  but  rquaffa  kif  tar  thru  thw  % 
Fb»r4  a  »»l 
Smftr  ti*r 


tk/uhir  tur 


HtP'H  PUT  PNi  LIGI 

19/If  IVMmMfmrnt*  4  and  (i  l*r  tkn 


A 

Ef 

f 

-v 

± 

B 

*3 

f  f 

- 

i 

\ 

S  »  /ihr  num/ptr 
P  U  f  rmtry  m  H 


tA*  ymn  Nr  At Hr,  imrrrtuym  Jt  drlrtoi n  ilPtar^r 


Hrmtl  Lint  iTO .  thu  a  fta  ailrr  kuia  iiwirh  o/fta  nffiaf 


-  Lnak  at  /if  J  rhmarun  of  SI  and  bmmrh 


fttiam  fa  ElFTt  Urn  $Mt  if  mot  frrcvnu»blt 


Lit 


Tkt  “-fanfoiw  X*  tim**  pmmh  ^twl  „ 

top*  to  ta  it/  at  npif  ai  t  bstrr  timt 


2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
50  40 
5050 

50  60 
5070 
5080 
5090 
5100 

51  10 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5270 
5280 
5290 
5300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 
5380 
5390 
5400 
5410 
54(9 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5*90 
5500 
5510 
5520 
5530 
3540 
5550 
5560 
5570 
5SPO 
5590 
5600 
561  0 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 
5740 
5750 
57*0 
5770 
57B0 
5790 
5800 
6100 


Bmmmmbrnby  IQ\  t IS  MW t 


If  «rap  if  mu 

Cfcrr*  if  4*ithk  Iri^NA 


S5-3&S 

vs# 


IF  ACt)«M!+n  THEN  2180 
1*1*1 
NEXT  I 

2190  “FHINT  ,,*i 
2200  GOT  0  340 

HEM*  RENUMBER 
15-10 

FOR  1*1  TO  240 
IF  At  1341  THEN  2340 
IF  Act ]*A( I *1 3  THEN  2290 
ACI  3-15 
15*15*10 
GOTO  2330 
AUJ.iS 
A I l+| 3*15 
1-1*1 
GOTO  2270 
NEXT  I 
COSUB  5200 
GOTO  340 
CHAIN  "PIL0T2" 

REM-GIVLN  It  STASH  S5 
V=FNb  < b I  1 3 J*B 

READ  mVJfiSrbStCirDitEitFS 

GOTO  FNAtOltn  OF  5080,5100*5120*51  *OrSI60r5lSQ 
PRINT  4 1 > VlSSr HStCSaDSj  E&*  F i 
RETURN 

PRINT  61 JV»ASiSitCitDirEStFi 
RETURN 

PRINT  #!*ViAS*M*S$*0S*ES,F5 
RETURN 

PRINT  41 ,VjAStbS,CSt$S/£f tFJ 
RETURN 

PRINT  f  I  *WAi,GS  *CirD5,Si*FS 
RETURN 

PRINT  f 1 -VlAStbitCitDitEStSi 
RETURN 

A  AND  H  ARRAYS  No  comment.  Set*  A  *»d  tl  mrroyt 


nod  iftlO 


Bit  A  a  nd  B  mmayt 

RUN  tm&T  1  RV Vj  i A*  PILOT  ptofpomi 

Nruy  «i  you  an  tre,  Jl«d  a  nr  coni,  rev  rite  kotdmp  n*m  Jfnnjft  S# 
ftrmiur  rfn^ff  itart  af  rrtotd  9  in  TEST 


REM-PRINT 
READ  *  If) 

MAI  PRINT  *  1 ! A 
READ  *  1 #  5 
MAT  PRINT  4  1  lb 
RETURN 

KFM-  EXTRACT  5$ 

HEAD  #  J  *  FRH  CHC  n>*8 
FOR  J*1  te  FNACbt 1 33 
HEAD  mss 
NEXT  J 

IF  1+1  >240  ThJ-N  5400 
IF  A ( 1+1 1*At 13  THEN  5400 
j*sbti  +  n 
READ  4l#lNHU6>+8 
FOR  J-l  TO  FNAII6J 
READ  41  I AS 
NEXT  J 

Sit LEN (Si )+l 3=AS 
RETURN 

KEM-G1 VKII  Si  LET  N 

dim  nnoi 

23454789"* 

N*-t 

f-OSUh  5550 
II  «$=****  THEN  5540 
G0S18-  5610 
II  Nl*tl  THLN  5530 
IF  N> *  j  THEN  5 SOU 
N-0 

N=10*N*N| 

Sl-Sif ? | 

GOT  I*  **450 
55^0 

HklURN 

BLANK  s* 

1 Y  >H  1  tl  3**'  “  THIN  5600 
SirSMUl 

II  ST=14i#  THFN  5600 
GPTC  5560 
RETURN 

kem-uimt  scan 
Nim 

FPH  J*i  TO  10 

IF  SHI  ,1  3#2iCJ-J3  THEN  5670 
NI*J-1 
RETURN 
NEXT  J 
RETURN 


CHEN  C I  VEN  I  /3  titimpmidr™.  Gel  Stp imm  I 
OmmatUI  fAtarfW/ 


Serial  UFA  IS  u  otki  fim.  If  you 
a  htch  you  nrurht 
Ckmt  iffilrmfnU 

Chrrk  ft*  rfi'.nlifc  (rfi/f/l 


f  a  fiinr  funnUr,  mi*  S2B0 


f.^iirDfrndi^nj  la  UP  BASIC 

Om  ITT  I  if  r  irtjf  “9 f  tf  nrnmrtir  9,4  r  f  f .  Cr  t  *  fin  ,  n«  mhet 


5  f  W.$S  Ifl  gt  If  S.136  frafit in  tai/>nr  4  k  nl  j 


4/ytif  arifA  Oumrrmt 


*  V  A(7/«l  'hotnttot  in  Sf 


LiuJt  n  0** 


taf  M  *  ««/**  of  dlftil  o  -  9 


foot  NUL  ttnoft  in  $STtU\Gi portion 

iJlA5rAi#Ai*Ai,AiiA$ 

But  turintitii 


HEM-SGRAICH  ROUTINE 
MAT  A*TER 
MAT  B*2EH 
FOR  J*1  TO  240 
S[ JJ-J 
NEXT  J 
Ai-*44* 

FOR  J=9 
PRINT  * 

NEXT  J 
GflSUP  5200 
RETURN 
END 


15 


PJL0T2 


S  CBM  KSC11 
20  1*1 
30  ks-"ym 

*0  DIM  AS£4|J 
50  DIM  SSC731,CSC 72 J 
BO  P0-7£ 

90  DIm  A£2a| ]*bt£4] J,LfSOltMf50? 

OEF  FNACX1-X-JNTCCX-1 )/6>*6 
OEF  FNbCX1*|NTtCX‘J 3/6J*i 
FILES  T£ST*E 
GOTO  2400 
CHAIN  'Titair* 

RESTORE 
OQ$\Jb  4*8 0 

ie=o 

19-0 

read  *1*1 

WAT  HEAD  4  t I A 
HEAD  #1,5 
WAT  HEAD  #Ub 
MAT  M-ZLR 
MAT  L*ZER 
F=0 
0=1 

F0K  1*1  T0  340 
G0SU8  5280 


twin  5  in  500  frrfovuflBTu-i 


PILOT  2 


100 
no 
190 
200 
320 
2400 
2410 
2420 
2430 
2440 
24  SO 
2460 
2470 
2480 
2490 
£510 
2520 
2530 
3535 
2536 
2540 
2545 
2555 
2560 
2565 
3570 
£575 
3580 
£585 
£590 
3595 
2600 
2605 
261  Cl 
£615 
£620 
2635 
263 U 
3635 
£640 
3645 
£650 
2750 
£760 
2770 


Eat  to  +4  rto* 

fn  if  pfljf- 

Sib  4*04/  imttafctM  lot*  of  Hmff 
jflS,  I9dmJ  Q  art  fouftirn 


H*t*  41  f At  /fcil  pan  (aixcmltb  tymhat  table,) 


CO-LENCSS) 

IF  SS**m  THEN  2750 


28  I  0 


3830 
£840 
2860 
3870 
38  bO 

£890 

2920 

2935 

2940 

2945 

3950 

2955 

2960 

3961 

2965 

2970 

3000 

3010 

3020 

3030 

3140 

3150 

3160 

3170 

3190 

3200 

3220 

3222 

3325 

3227 

3330 

3340 

3250 

3355 

3260 

3265 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3360 

3370 

3375 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3490 

3500 

3520 

3530 

3540 

3550 

3560 

3570 

3500 ' 

3610 

3620 

3630 

3640 

3650 

3655 

3660 

3670 

3690 

3695 

3710 

3711 

3712 

3713 

3714 
3720 
3730 
3740 
3750 
3755 
3760 
3765 
3770 
3780 
3790 
3800 
3820 
3830 
3840 

3845 

3846 
3850 
3870 
3880 
3890 


(MtJK 

Stm  S280  CrtYfi  /,  SO  fmm  $ST 
If  ATX  firing,  first  fuitu  compb-tr.  Stmt  ttrcatmn 


*Q1 


V  ■  J  ■*  *1  ■  £4  I  Ilirimrir, 

IF  SSU*\  1*"*"  THEN  2585  CWfar-k&rt  Bmneh  mmmd  if  not 
GO  5  UU  3  *  9  0  S|  ft  r,  r tacit  *  Itftrf  **  M 

rtos  ur  4 920  sun  mo  An mdr,  m 

b  E  2 1 " ' ? 1  hoiked  table  in  l 

WIG1=1  Store  mltltru  m  M 

G  l  brwu'il  nuAiit  (7 

IF  0>S0  THEN  2750  ft* if  table  fab  tfm.bqm*s€c*thn  ^ i, 

I  F  6511,11****"  THEN  2640  Skip  fm*  As 
IF  SSf  1,1  11**5*’  THEM  £640  SI*.  tfm$  friifr  m  ** 

G05UE  3690 

€*t  f  t *H,bb  «  Of.  h**h  code  Irt 


fi ifWm*  h |  rousf  pr  H 
ff  table  b  fall,  ***** 
Hare  m  tsbfr  *S" 


tnrfrin-r\l  nqt^r  1  twidrrfa  aretadtnr  to  mule  or 


FjalofbM 

ttrratvm  I  ptmjmm  eemmbH 
fttrrrmrmi  pr/tf  ntm  euanter! 

If  rtm  ii  t  for  tfmttiile  h'Hpih  tine 


ImHf W  \(  *-A*f  ii / fa 

fat  new  SI,  tea  if  M  L  fed  ifdnmfa  Cnptk.  wt  ttf  fly, 


Cat  C$  *  condUum.  C$* 

Oirek  ifC$  nut* 

*  Branch  to  eommmaJ 


Tt  dr  fait 
Cfachrf^jae* 

Chock  if~rnom 

SUB  JSJO  tcoju  feu- 1  tmnabir  and  prim*  text 
Tv*  hop  fag-  if  >  100,  xdt  ttk  propram 

Btuk  to  ma|K  loop 

Mite*  routim*  SUB  4S20 


4i 

t  b-  Adi 


Adi  trading and  trailing  *W*  tv  ft 


Cjflbub  4920 
19=19*1 

IF  1 9*20  THEN  2*40 
SU91-WI 
6818  £565 

IF  GO <42  THEN  £6*0 
I*|*| 

IF  00*42  t  HEN  £650 
1-1*1 
NEXT  f 
1=0 
1*1*1 

IF  IH*|  THEN  £7*^0 

usu 

18-0 

IF  I*i£4Ci  1  HEN  3490 
005  UH  5;‘8U 
IF  s s-""  ThEn  3£n 
IF  LENCSi>*4£  THIN  2ft 60 

10-1 

IF  SlMtn#"*1'  THEN  2920 
COSUb  3690 

IF  LLNCSil-O  THEN  292Q 
GOTO  3£0 
305UH  3580 
IF  G$*"Y"  THEN  3000 
IF  G*-**6T  THEN  3020 
CS-CSf 1 *1 1 
IF  C5-**J**  THEN  3360 
IF  CS="A*»  THEM  3220 
IF  Ci**,«r  THEN  3190 
IF  Cf-"h**  THEN  £7*0 
IF  GI»"E"  THEN  £690  _ 

GOTO  3140 
IF  F*0  THEN  £945 
GO TO  2760 
IF  F* I  THEN  £945 
GOTO  £760 
G8SUb  3820 
T-TM 

IF  THOO  THEN  3470 
GOTO  3760 
GO 5Ub  4530 
GOTO  2760 
INPUT  1 5 
itrtENf  u>*i  i*' 

ISI4,LFNCIS)*31*I5 
isri,3i*,**i 

T  *0  fnm  off  hop  counter*  {reset  to  zero) 

IF  I*C4,4js"f"  THEN  3490  CM  if  abort  fchom  to  PHOT  U 
Tl-T-0 

IF  SHhin1'  THEN  3340 

GOSUb  3*90  Saw  reply  in  "E*  3280  ^  fad  odd* u 

GO Sub  4920 
FOH  J«l  TO  19 
IF  0 1 *51 J  ]  THEN  3330 
NEXT  J 
GOTO  £760 
L2*  J 

GBSUH  4370 
GOTO  2760 
T I  *1 1  *  I 

IF  TIMOO  THEN  3450 
05-"*" 

G0SUD  3690 
GOSUb  4120 
IF  M2-0  THEN  3430 
i*K£ 

GOTO  3800 

PRINT  "CANNOT  LOCATE 
GOT©  £760 

PRINT  "JUMP  LOOP  AT 
GOTO  3490 
PRINT  "TEXT  LOOP" 

PK  INI  "bYE" 

GOTO  320 

IF  Sid  #114**  "  THEN  3570  Slti  UfO  r*m°a*  trodiapblmmk, 

IF  LFN(551-«1  THEN  3570 
51=51121 

IF  LbNCS^1*£  THEN  3570 

GOTO  3520 

RETURN 

G0SU8  3530  SimSBO  huh  fa  "s"  Ct  =  commend  CO  •  condition 

FOR  Jl =2  10  LENCSt) 

IF  SlCJlt Jl  lu'V  THEN  3650 

NEXT  Jl 

KETUKN 

UI-5H1  #  I  1 

GWS3-CJ1- WJ1M  3 

SIsSHJJ*!  1 

RETURN 

GO  S  Ub  3  520  Sf  W  767(1  tb+knk  and  gr  t  -  Uh*\  m  $  wtmddr  Ut  fnim  Sf 

UE**1  ** 

FOR  J1«£  10  LENCSV> 

IF  SMJI  #JI  1***f "  THEN  374f> 

IF  Sit  Jt#J>  .  . .  TlifH  3740 

IF  511  J|  *  Jl  1-*,II"  THFN  3790 
IF  S1IJ1,J| 1<Mt"  THEN  37*0 
IF  SlUiiJI  1***0"  THF ,H  37^0 
IF  S5IJI  pJI  l***rf  THEN  3790 
NEXT  Jl 
J2-LENC51J 
DIM  biilQ} 

RE  h 

DJ C  I  #  MO-SI  M  #  J£  1 
S5-5MJC*  11 
REIUHN 
JO, Jl - I 

goto  3760 

P  -  I  St  8  J it  SO  Siam  text  fa  t 

Kl -LEW i Si > 

tF  5itH#Pl-M*"  THEN  3900  r**t  if  rhamrter  v  -f- 
PRlNT  5f[l#t1l  Prim  a  rhmmrter 

If  LENCli*>€£  THEN  3880 
SS-SU21 
GCJTO  3830 

PRINT  f^rrmpr  *nd  W  fad  mk** 

HE TURN 


1 


SETS  4370  tiorwt  rrpft  in  "E* 

Jump*  -  inrrrmrnt  fump  eoiintrr^  tr*t  i fptmtrf  lA=n  IOQ 
A  fad#  fait! 

Fs tract  •  Uhcl  SUB  41  *7  hots  fa  wddnr* 

If  itl  form  adder  fa  *  0.  fa>rl  not  found  in  fair 
Set  program  counter  and  jump ! 


vO 


-1 


*  **135**  * 1 

Fetor  mrimptt 


'*05 


Fi  4  progm  m  to  editor  WWT  t 


rfa 


ts-pet  r  bum*  ter  art,  ff  dfant  r haute  Ire,  md-of  label 


test  sad  t  tnrmbb 


3900  IF  SSCP+1  *p+l  I*1*  **  THEN  3850  fojeeit  H|/«p  t  mtmbl*.  Of  a-  tempomrr  stnap 
3910  25*55 

3930  SS-S5CP1 

3930  G0SUB  3690  TfcMtHO  Urfas  X» at  f  ,mm+tr  from 

3940  G3SUB  4920 

3950  L3-0 

3960  FBR  J=1  TO  19 

3970  IF  OlPStJl  THEN  3990 

3980  L2=J 

3990  NEXT  J 

4000  IF  L3#0  THEN  4010 

4003  PRINT  "$"J 

4006  GOTO  4090 

4010  GO Slib  4240  SUB  4240  trtXtfaM«£“ 

4020  0$tP  ]-X5C3#L£NCX£  >-3  7  Chen  tmihefaed  *  lebal  me  yt.tr,  to  find  a 

4030  PI-LENCOSJ 

4040  IF  PI*UN<S5HP0  THEN  4080 
4050  0SCLENC061  +  1  1*S5tLENC0H*l1 
4060  55=05 

40  70  G2T0  3880  If  not  fa  and,  error  *W  set  tu  program  counts?  H 

4080  S5CLEN(051*1 ]*51 

4090  55=06 

4100  GOTO  3850 

4130  HEM 

4130  GO SUb  4930 

4140  FOR  J-t  TO  50 

4150  IF  LCJ3-01  THEN  4200 

41 60  NEXT  J 

4170  PRINT  OS"  IS  MISSING** 

41SO  L3-M2-I*] 

41  90  RET  URN 
4200  I-HtJ] 

4210  L2-H2-I 

4220  RETURN 

42  40  L3-FNCCL21  Oman  Ut  get  Xt  from  ~fr 

4250  KEAO  4£,L3IVSj.XS,YS,ZS 

42*0  L4-FN0CL2) 

4270  IF  L4*2  THEN  4340 

4280  IF  L4<3  THEN  4010 

4290  IF  L4<4  THEN  4320 

4300  XS=2S 
4310  RETURN 
4320  XS*Y5 
4330  RETURN 
4340  XS=VS 
4350  RETURN 

4370  L3=FNC<L2>  Cn*n  pm  X$  mt*  ~£m 

4380  READ  *2#L3ik*S»XS,Y£,£S 

4390  L4=FN0CL21 

4400  IF  L4*2  THEN  4490 

4410  IF  L4*3  THEN  4470 

4420  IF  L4*4  THEN  4450 

4430  PRINT  *2#L3f  V-SfXltYS*  IS 

4440  RETURN 

4450  PRINT  F2#L3jRS#XS,I£#E£ 

4460  RETURN 

4470  PRINT  *£#L3tES>#  |i,YS,2$ 

4 4 BO  RETURN 

4490  PRINT  4£jL3US,XT.#YS#ZS 
4500  RETURN 

4520  Si  C  LEN  C  56  1  *  L  ]  ^  "  #  M  mTCif  FUMTtOH 

4521  FOR  J£*2  TO  LtNUSI 

4522  IF  UCJ£#J£1*mJ2-l#JR-l  J  T HEN  4536 

5523  IF  lit  J£#  J£  }*  *'  "  THEN  4526  mnUtfa  fhnk,  m  *n,u*r 

4524  1SCJ2-I 1^1StJ21 

4525  IF  J£«rLENUi>  THEN  4530 

4526  NEXT  J£ 

4530  F  =0  ~ti* 

4540  IF  I.RNtol.  S<£  1  lJEN  4*60  »V» mmr+  me #*HJb  -  bftmrk 

4530  FOR  Jl  *1  TO  LF-NI  Si  F 

43 1-0  1  r  Si  I  Jl  i  Jl  1*"#"  T  HEN  4  310 

4570  NEXT  Jl 

4560  Xi  *SS  I  I  #  J 1  “  1  I  C#l  .Vf  M  rif  B  Rrmoi*  Irsdrnr  and  truHinp  blank, 

4581  IF  XSII#II#H  **  THEN  4585 
4S8C  XS-X5C2 l 


4583  IF  Xi*""  THFN  4530 

4584  GOT 0  4581 

4585  IF  XStLENEXS1#LENCX$IJ#"  **  THEN  4390 
158*  XS  =  X$U  , LtN < XS  >  -1  ] 

1587  IF  XS-“"  THEN  4330  0Rn*  mark esa 

>586  GOTO  4505 

*590  SS-SStJI  +  13  Tern****  SO  fa  mwsttmr  word 

4600  IF  LENtXSF-LLNC 1SJ  THEN  4340 
46(0  FOR  Jl-1  TO  LEN  CIS) -LEN  C  X  6  J  * 1 

4620  IF  XStlSt  Jl  ,J1+LEN<XS)-M  THEN  4650  wtmhv  match 

4630  NEXT  Jl 
4640  GOTO  4590 


4*50 

4660 

4AS0 

4*90 

4700 

1710 

4720 


P*l  Fhg* “F" 

RETURN 

DEF  F  NC  C  X  >  «  I  NT  C  X/  4*  9b  1  +  l  fmtsel»,np  „uff 
DEF  FNDCX)=X-1NTC CX-l 5/4144 
U5="4SA&CGfcFGH UKLPNePUH£TUVRXYZQ98 765432  I " 
OIN  ISE72I 

DIM  ESC  60  3  #  X  5  C  60 J#YSt60  1  *ZS t  *0 1 


Legal  «Wacr<r  »ei 


4730 

4750 

4760 

4770 

4780 

4790 

4000 

4810 

4812 


DATA  £43,  5#7#  I  1*13*17,1  9,23*39  4730-4780  Pm  fa  (ptimethnto  finnuy 
FOR  J=!  T0  10 


READ  Ul 
PC Jl *L0G TO  I  I 
NEXT  J 

M-Ll =T l -T2-0 
T-0 

MAT  L*ZER 
DIM  SC £01 


Lme  4840-  Prrni  *XXtT*  mto  “F"  tf  yon  ha** 

i  Tt  IfQW ARE  fQU,  $  NA  0? 

3  At  1*4  U 

H»*  “JCTJOf" wit  appear  a,  an  undefined  $  mwbts 


4814  MAT  S=ZER 
4830  READ  42,1 
4840  FOR  J=!  TO  5 

4850  PRINT  42,J#"XXXXXX"**,XXXXXX*,,I,XXXXXXM,MXXXXXX" 
i860  NEXT  J 
4870  RETURN 

4890  DIM  ©SC  401  Matnkftfndrikrd  h**h  tod*  Ql 

4900  HIM  PU  0  ]  rit  Hop  r  _  "*«  dfami) 

4920  01=0 

4930  JI=LEN(0S) 

4940  IF  Jl*ll  THEN  49*0 

4950  JI-IO 

4960  F0R  J=l  T0  Jl 

4970  F0H  K-|  TO  36 

49B0  IF  DSCJ,J]&OSCK#K  1  THEN  5020 

4990  NEXT  K 

5000  NEXT  J 

5010  RETURN 

5020  0I9Q14K4PCJ1 

5Q30  GOTO  5000 

5280  READ  4  1  *  FNb  CO  t  I  1  >  +  B  Cet  SSfrom  TEST 

5290  F0H  J=1  TC  FNACbtlll 
53Q0  READ  illSi 
5310  NEXT  J 

5320  IF  1  +  1*2  40  THEN  5400 

5330  IF  Att  +  1 J FA  El  3  1  HEN  5400 

5340  I*=bt 1+11 

5350  HEAD  *  I *tNbf 

5360  Fdf  J-l  TO  FNA  <  1 6  > 

5370  READ  #UAS 

5380  NEXT  J 

5390  SSCLENCSS1+I 1=AS 


5400  RE TORN 

5550  RF:m-DEHLANK  SR  Haenomr  Ming  blank*  from  S$ 

55*0  IF  SSIltll#**  **  THEN  5600 

5570  Si=SSf£1 

5580  IF  St=M"  THEN  5*00 

5590  C£T0  55*0 

5*00  ft F TURN 

6100  INU 


PaOEPv  TftPGS  ?>USTd.  PUD 

Pilot 2.  |Xst*  ^\b.b o 

F9.0VA; 

RwftlCr  P'V,e.  t»W- 

C^5  4 / 


USING  PILOT 

LOADING  AND  USING 

If  you  are  familiar  with  BASIC,  the  remarks  will  help  you  fit  PILOT  1 
and  PILOT  2  to  your  system.  If  you  aren’t,  follow  this  cookbook: 

CO  Be  sure  your  computer  is  an  HP  2000  Series  machine. 

GO  LOGON,  SCRATCH,  ENTER  THE  CODE  FOR  PILOT  I  AND 
SAV  AND  LIS, 

C33  Check  that  what  you  have  is  identical  with  this  one.  If  not,  fix 
and  repeat  this  step. 

t43  Repeat  for  PILOT  2. 

GO  Create  a  dummy  program,  PILOT  3 

5  COM  KS(1) 

10  PRINT  "READ  THE  MANUAL,  CHARLIE!” 

15  K$-MY" 

20  CHAIN  -  PILOT  1 
30  END 

Later  yon  can  write  your  own  instructions. 

C60  Now  that  you  are  loaded  and  ready  (ahem): 

OPEN —TEST  ,48 
OPEN— E, 5 
GET-PILOT  I 
RUN 

At  which  time  at)  those  other  errata  will  appear  which  you  missed 
in  Step  3. 

It’s  wise  to  save  some  copies  under  other  names  in  case  you  clobber  this 
one  [Beware  of  the  CHAIN— BEAST  ] 

C?3  At  last,  it  runs  (sort  of).  Try  the  various  operations  —  entering  a 
program,  LISTing,  SCRatching,  RENUMBERing,  and  RUNning, 

[When  you  RUN,  PILOT  2  is  activated.  If  you  crash,  you  will 
still  be  in  PILOT  2*  When  fixing  your  typos,  be  sure  to  get 
4 SAV -THE  PROGRAM  YOU  ARE  FIXING*  or  you  will  likely 
either  fix  the  wrong  program  or  lose  your  fix  when  k  chains  to 
the  other  program  |  *Each  time!! 

G83  Try  writing  PILOT  programs  which  use  all  the  tcaturcs  (i.e.,  T  Y 
N  M  J  A  R  E), 

GsD  Congratulations! 

Send  us  any  really  neat  PILOT  programs  —  some  will  appear  in 
PCC. 

Cl03  If  you  don’t  like  steps  2  through  9,  send  SlOto  Gregory  Yob, 
2296  Bryant,  Palo  Alto,  CA,  and  we  will  send  you  a  tape  with 
PILOT  1 ,  PILOT  2  and  PILOT  3  on  it. 


MISCELLANEOUS  THINGS  &  TECHNICAL  HASSLES 


Cl  3  Files  -  If  you  have  a  highly  similar  BASIC  (like  NOVA  or  BASIC 
TYM SHARE),  the  files  statement  [Line  1  90  ]  may  be  different. 
“TEST”  is  FILE  #1  and  *EM  is  FILE  #2. 

G3  Space  -  If  you  have  a  HP  2000C,  your  record  length  is  256  words 
so  you  can  use  twice  as  many  strings,  etc.  per  record.  Try  if  you 
dare. 

C3J  Space  (continued)  —  PILOT  holds  240  single  length  lines.  In 

practice  about  1  in  8  lines  arc  double  length.  Think  of  about  200 
lines  ol  PILOT  as  your  maximum  size. 

4 J  Since  this  is  an  interpreter,  it  looks  at  the  disc  a  lot.  There  may 
be  response  problems  at  5  or  more  terminals  in  PILOT.  (This 
trouble  has  been  experienced  at  SRI  and  LHS.)  If  you  have 
this  problem,  let  us  know, 

CS3  There  may  still  be  bugs!  Call  me  up  (Greg  at  415-326-4039)  so 
we  can  fix  cm!  If  you  have  cleaner  code  or  hot  programming 
ideas,  we  have  ears.  (Especially  if  your  version  (a)  works, 

(b)  faster  (c)  with  less  core) 

C63  Tapes  ol  PILOT  1  and  2  are  available  —  S10  service  charge  per 
tape  (holds  PILOT  1  and  PILOT  2),  When  we  have  it  together, 
manuals  and  some  sample  program  will  be  included. 


INTERPRETER 

VS 

TRANSLATOR 

BfFLEMEWtm  SIMPLE  LANGUAGES  ON  MIDI-MINI  TIKESEAHE  COMPUTERS 


P«t«  Row*  24  JAN  1973 

Laurence  Hall  of  Science 
University  of  California 
Berkeley 

In  this  arc!  later  issues  of  PCC,  readers  will  be  able  to  explore  new  lan¬ 
guages,  Some  of  the  simple  languages  can  be  written  in  BASIC*  The  way 
they  are  implemented  in  BASIC  is  xhe  point  of  this  article. 

At  the  start,  I  vill  define  a  Hid  1-14 Ini  as  a  multi-user,  BASIC  interpreter 
with  data  riles  and  string  manipulation r  timeshare  computer,  Hewlett 
Packard's  2000  series,  Digital  Equipment1 s  EDU  30,  40,  50,  ESTS-ll  and 
Data  General  - s  Seminar  2  thru  10  generally  comply  with  this  definition, 

BASIC  as  a  problem  oriented  interpretive  language  ‘is  known  for  its  ease 
of  coding,  debugging  and  editing.  However,  to  use  BASIC,  one  must  have  a 
minimal  knowledge  of  algebra;  a  knowledge  enjoyed  by  relatively  few. 

Then  what  other  languages  can  we  design  for  the  majority  of  the  "kids"  (PCC 
vol.l*no.2  p-5)  and  teachers  who  do  not  and  usually  will  not  learn  BASIC? 
PHOT,  PYLON,  CO-FIL0T  and  NYLON  are  predecessors  to  PILOT  73.  All  are 
simple  author  languages  that  take  only  minutes  to  learn  and  use,  but  are 
powerful  enough  to  produce  moderately  complex  programs.  The  question  arises 
of  .how  to  implement  this  new  tool  on  currently  available  machines,  providing 
the  interactive  features  for  PHOT  73  authors  that  BASIC  authors  have  been 
enjoying  for  years. 

Gear  (1969)  defines  an  Interpreter  as  a  routine  that  executes  by  stateaent- 
to- statement  translation,  subs ti tut in£  effective  error  tracing  for  execution 
efficiency,  BASIC  on  all  the  afore  mentioned  computers  has  been  implemented 
inter pretively* 

When  PUCT-like  languages  are  implemented  inter  pretively  in  BASIC,  also  an 
interpreter,  response-time  is  affected.  PILOT  73  source  code  must  be  kept 
on  a  data  file  for  interpretation,  translation  and/or  editing.  Hence  the 
need  for  a  Kidi-Hini.  And  during  file  access  and  transfer,  no  machine 
instructions  can  be  executed,  hence  reducing  the  number  of  machine  instruc¬ 
tions,  therefore  BASIC  statements  executed  during  a  given  amount  of  time. 
When  many  users  are  involved  with  file  accesses  and  transfers  then  the 
number  of  instructions  executed  for  an  individual  user  will  be  even  less, 
resulting  in  a  degraded  response-time* 

Two  actual  examples  are  known;  (l)  A  DIALOG  program,  a  subset  of  a  more 
elaborate  interactive  author  language  was  Implemented  on  our  HP 20 DOB  as 
an  interpreter  and  (2)  Dr*  Sylvan  Rubin  at  3*R*I*  implemented  his  PYLON 
interpretive  language  on  the  DEC  RST5-11*  In  both  cases,  seven  terminals 
executing  these  interpreters  seemed  to  be  the  magic  number.  The  systems 
became  bogged  down  doing  file  accesses  and  transfers  and  response -time  was 
noticeably  degraded* 

An  operational  solution:  Create  an  editor,  syntax  analyser  and  a  PHOT  73- 
to-BASlC  translator.  The  editor  and  statement  syntax  analyser  could  reside 
in  one  BASIC  program,  where  each  PILOT  73  line,  before  insertion  to  a  source 
file*  would  be  checked  for  acceptable  PILOT  73  grammar.  Once  Insertion  and 
editing  were  complete,  the  author  could  give  a  command  to  translate  his 
PILOT  73  statements  into  BASIC  code,  which  would  be  written  Into  a  data  file. 
This  translation  need  only  be  done  once  to  produce  the  executable  BASIC  code* 
On  our  Decision  system  and  on  the  Data  General  Seminar  series,  a  user  could 
access  this  data  file  as  if  it  were  a  program  file  and  execute  it  using  the 
machined  BASIC  interpreter.  On  the  HP2QO0  series,  an  intermediate  step  of 
punching  a  paper  tape  image  of  the  data  file  and  loading  the  tape  back  into 
the  terminal  as  a  BASIC  program,  is  necessary. 

Perhaps  in  a  stud  cut- as -author  environment,  handling  paper  tape  will  dis¬ 
courage  their  involvement*  It's  yet  unknown  what  effect  the  intermediate 
step  might  have  on  teacher  authors* 

In  contrast  to  the  interpretive  implementation  of  PILOT  73,  a  translator 
need  only  translate  the  source  code  once*  And  in  effect,  the  PILOT  73  author 
Is  creating  a  SASIC  program,  eliminating  file  accesses  during  its  execution 
ani  therefore  Improving  response -time. 


PILOT  73  is  a  real  language!  The  fallowing  people  have  agreed 
on  the  main  features  of  PILOT  (this  version  is  a  subset)  and  the 
means  of  extension.  Specifications  are  available  through  U.C. 
Medical  Center. 


WHO'S  WHO  IN  PILOT  LAND 


Name 

John  Starkweather 
Marty  Kamp 

Organisation 

UC  M ed i cat  Cen ter 

San  Francisco 

Mainframe 

IBM  360 

Data  point  2200 

Language 

PUt 

Machine  Code 

Pete  Rou  e 

LHS 

Berkeley 

Decision 

HP  3000 

BASIC 

BASIC 

Dean  Brown 

Sylvan  Rubin 

Stanford  Research 
Institute 

Ty  ms  ha  re 

DEC  11/20 

HSTS 

BASIC 

SUPER  B  ASIC 

Gregory  Yob 

PCC 

HP2000C,E,E 

BASIC 

// you  ham*  a  version  %  let  m  know  and  we  wilt  add  you  to  the  list. 


Dean  Brown,  Marty  Ramp,  and  Greg  Yob  are  interested  in  groovy 
programs,  curricula,  etc.,  which  develop  in  PILOT. 


by  marc  ie  brun 

[Each  issue  we  will  present  an  "advanced" programming  technique: 
with  explanations,  examples,  programs  and  problems.  We  welcome 
suggestions  for  topics  of  interest  to  you.] 


LOGICAL 


A  logical  expression  is  an  expression  whose  value  is  either  0  or  I 
depending  on  the  values  of  the  variables  in  the  expression.  For 
example 

ABS(SGNfX)) 
is  a  logical  expression 


tfGGJ! im® 


EXPRESSIONS 

Gb 

|  Secondly ,  we  will  consider  what  are  called  the  “logical  operators,” 
that  is,  those  involving  AND,  OR,  NOT  and  others. 

We  already  know  that  NOT  e  is  equivalent  to  I  —  e .  If  we  have  two 
logical  expressions  el  and  e2  then  el  AND  e2  is  equivalent  to  el  *e2. 

e l  OR  e2  is  el  +  e2  (Remember  the  two  facts  about  zero  given  above.) 


IF  X  =  0  THEN  the  expression  equals  0 
IF  X  4  0  THEN  the  expression  equals  I 

Notice  the  use  of  the  words  IF  and  THEN.  It  is  sometimes  con¬ 
venient  to  think  of  1  as  representing  true  and  0  as  representing 
false. 

Many  times  it  is  possible  to  use  a  logical  expression  in  place  of  an 
IF-THEN  statement.  In  this  article  we  will  show  how  this  is  done. 

In  the  following  discussion  we  will  use  an  e  to  represent  a  logical 
expression,  and  other  lower  case  letters  to  represent  any  old  kind 
of  expression. 

Notice  the  following  “rules.” 

IF  THEN 

e  =  0  :  1  - e= 1 
e  -  1  :  1  —  e  =  0 

1  —  e*  is  always  the  “opposite"  of  e.  If  we  think  of  e  as  being  equiv¬ 
alent  to  TRUE  or  FALSE  then  I  —  c*  is  equivalent  to  NOT  e\  that  is, 
NOT  TRUE  (FALSE)  and  NOT  FALSE  (TRUE). 

Remember  also  that  any  number  multiplied  by  0  is  0,  and  that  any 
number  plus  0  is  that  number. 

Now  suppose  we  wish  to  write  an  expression  which  is  equal  to  a  if  e 
is  one  and  equal  to  b  if  e  is  zero.  Here  is  how  we  do  it : 

a*e+b*(l  -  e) 

Suppose  we  wish  to  set  X  to  the  value  of  this  expression.  The  following 
two  BASIC  programs  do  this  in  different  ways 


* 

here  the.Y  are  > 

Si®! 

SHORT  FORM 

LONG  FORM 

LOGICAL  EXPRESSION 

el  AND  e2 

el  AND  e2 

el  *e2 

el  OR  e2 

NOT(NOT(et)  AND  NOT  (e2)| 

t  _(1_elj.(l-e2) 

el  XOR  e2 

(el  AND  NOT(e2H  OR  (NOT (el)  AND  e2) 

e1*(1-*2|+(1-e1)*e2 

el  NAND  e2 

NOT(e1  AND  e2) 

1  -  el  *e2 

el  NOR  e2 

NOT(et)  AND  NOT(e2) 

el  EOV  el 

(el  AND  e2)  OR  (NOT(et)  AND  NOT  (e2)) 

el  *e2  +  (1— e1}*(l— e2) 

el  IMP  e2 

NOT  (el  AND  NOT(e2)l 

1  —  el  *(1-e21 

el  NIMP  e2 

el  AND  NOT  (e2) 

el  »(l-e2) 

PROGRAM  1 

10  LET  X=A*E+ri*<I-E> 
30  •  *  ■ 


I 


PROGRAM  2 

10  IF  E=l  THEN  40 
20  LET  X=B 
30  GO  TO  50 
40  LET  X=A 
50  •  *  • 


Clearly  Program  No.  I  is  a  lot  simpler. 

If  we  want  a  variable  to  have  a  certain  value  if  something  is  true  and 
another  value  if  it  is  false,  then  in  MOST  cases  we  can  use  a  logical 
expression  instead  of  an  IF-THEN  statement. 

The  rest  of  this  article  will  be  devoted  to  showing  how  to  write  logical 
expressions  for  the  usual  sorts  of  “if's.”  First  we  will  consider  what 
are  called  "relational  expressions,”  that  is,  those  involving 
>=  and  <>  (or  #  ).  Here  is  a  table  giving  the  relational  expressions  and 
their  equivalent  logical  expressions. 


:  3. 


RELATIONAL 
EXPRESSION 
■  m 

p=q 
p«t 
p>q 
P<=< 7 
p>=q 
JL<  ></ 


LOGICAL 

EXPRESSION 

■  W 

1  -  ABS(SGN(p-r/» 

1  -  SGN(  1  +SGN (p-r/» 
1  -  SGNI  1  -  SGN(p-r^) 
SGN(I  -SGN(/w/» 
SGN(  1  +SGN  (p~q)) 
ABS(SGN(/J— </)) 


For  example,  the  phrase 
“IF p  <>(/...” 
is  equivalent  to 

“IF  ABS(SGN(/>~</))  =  1 


For  example  the  phrase 
IF  n  OR  b  ... 
is  equivalent  to 

IF  1  -(l-e/)*(I-«2)=  1  ... 

In  many  cases  the  resulting  expressions  can  be  algebraically  simplified. 

It  is  also  useful  to  use  several  LET  statements  rather  than  repeating  the 
same  sub-expression.  An  example  -  suppose  we  wish  to  set  U  to  V  if 
X  >-•  Y  and  X  <=  Z;  and  to  set  U  to  W  if  X  <  Y  or  X  >  Z.  Here  is  a 
short  program  which  does  this: 

10  LET  T=SGN< 1 +SGNCX+Y) )*SGN( 1 -tX-Z) ) 

20  LET  U=V*T+W*(1-T> 

As  a  matter  of  fact,  using  a  little  algebra,  we  can  write  the  whole  thing 
in  one  line  — 

10  LET  11=  (  V-W)*SGNC  1  +SGN(X-Y>  )  *SGN( 1  -SGNCX-Z)  )  *W 

PROBLEMS  (in  order  of  increasing  difficulty) 

1 .  Write  an  expression  which  sets  Z  to  MAX(X,Y). 

Write  an  expression  that  sets  U  to  V  if  X  <  Y  and  sets  U  to  W  if 
X  <  Y  AND  X  <  Z. 

The  “rule” 


2. 


X  =  Y  : 
X  <>  Y 


1/(X  +  Y) 

:  1/(X  -  Y) 


4. 


5. 


has  to  be  done  with  IF-THEN  —  why?  Think  up  some  more  “rules” 
which  can’t  be  performed  with  a  logical  expression.  Can  you  find 
a  way  to  describe  when  you  have  to  use  IF-THEN? 

Without  using  the  MOD  operator,  write  an  expression  which  is  TRUE 
if  an  odd  number  of  e’s  in  the  set  (el.  e2.  eS }are  TRUE  and  FALSE 
if  an  evert  number  are  TRUE. 

Hint:  Explore  the  properties  of  XOR. 

Logical  expressions  can  only  “select”  one  of  two  values.  Write  an 
"illogical”  expression  which  “selects”  one  of  three  values  according 
to  the  following  rules. 


X  >  Y 
X  =  Y 
X  <  Y 


a 

b 

c 


Hint:  Think  about  quadratics 


7. 


Can  you  think  of  a  general  class  of  “selection”  expressions  which 
picks  one  of  N  values?  Describe  this  class.  Hint:  Think  about 
Problem  5. 

Can  you  generalize  the  logical  operators  to  get  some  operators 
which  “make  sense”  to  use  in  combining  “selection"  expressions? 
Hint:  Think  about  matrices 


DO^IT^TOUft/ 


a 


** 

*  *  5ft 

*  *  * 

*  *  * 

* 

*  * 

*  * 

*  + 

*  * 

*  * 

*  * 

*  * 

*  * 

*  * 

*  *  * 


* 

* 

* 

* 

*  * 

*  *  * 

*  ** 

*  ** 

*  * 

*  * 

** 

** 

*  * 

*  * 

*  * 

*  * 

*  * 


*  * 

*  * 

* 

* 

Sfc  * 

*  * 


*  5jC* 

**  *  * 

**  *  * 

**  *  % 

*  *  *  * 

*  *  *  * 

%  *  ** 

*  *  ** 

*  *  ** 

*  *  *  * 

*  *  * 

*  *  *  *  * 

*  **  %  * 

♦  *  *  *  * 

*  *  *  * 

*  %  sje* 

*  *  ** 

*  *  *  ** 

*  *  %  *  * 

**  %  * 

*  *  *  * 

*  3lc  *  * 

*  **  *  * 

*  *  *  * 

*  *  *  *  * 

%  *  *  *  * 

*  **  * 

*  *  /  *  *  * 

*  *  *  *  * 

*  **  *  * 

=4=  *  *  *  * 

*  *  *  * 

*  *  *  *  % 
r£-  ^  aft  3$<  sjt 

5jc  #  #  +  jfc 

jlf  5ft  jfc  5>fc  Hf 

ifc  5*t  ifc  *  Jf£  5|e 


*  *  *  ** 

*  *  3#:  *  *  * 

*  *  *  *  * 

*  *  *  *  *  * 

*  *  *  *  * 

*  *  *  *  * 

**  *  *  * 

**  *  *  * 

*  *  *  * 
*  *  *  * 
**  *  * 

**  3f=  3+e 

*  *  *  % 

*  +  *  * 

*  *  *  * 

*  *  &  3fc  s4t 

*  *  *  *  % 

*  *  ** 

*  *  ** 

*  *  *  *  * 

*  *  Sk  * 

*  *  *  54c 

*  *  *  * 

**  *  54c 

**  *  * 
**  *  * 

*  *  *  % 

*  %  *  *  * 

*  #  **  * 

%  *  **  % 

*  %  *  * 
**  5ft 

**  *  * 

*  *  *  *  * 

*  *  *  3|e  * 

*  *  ** 

*  *  *  * 

*  „  *  5*  * 


* 

*  * 


*  * 

* 

*  * 

*  % 


**  i 

*  * 

3f=  =4=  % 

*  *  * 


*  +*  =4? 

*  *  *  *  * 

*  *  s4=  *  * 

*  *  ** 

*  *  *  *  * 

*  *  *  * 

*  *  *  *  * 

*  *  *  *  *  Ji 

*  *  *  *  54c 

5fc  5jt  5fr  +  5|c 

*  *  *  $ 


*  *  #  ^  *  *  * 

ajc  af:  af:  afc  $  aff  sf;  )+:  afc 

3f:  3fc  5ft  3ft  pft  jfc  5ft  Sjjc  3#t  3*f 

pfe*#*****#* 

%*  aft*#  5|e 5f  ^ Sft Sfc 


*  * 

***  * 

*  ***  *  * 

00  * 

*  * 

*  *  *  00 

*0*  * 

**  * 

**  *  **  *  *0* 

**  *0 

*  m  * 

*  *  *  0*  ** 

*  *00* 

i  *  * 

*  *  *00*  * 

*  0*  0 

♦  0 

**  0*  0  *0  * 

**0  * 

**00^  * 

*  *00**  *  0** 

0  *** 

00*  *00*  *00  ***  0 

0  *** 

00*  *00*  *00  ***  0 

**0  * 

**00*  * 

*  *00**  *  0** 

*  0*  0 

*0  ** 

**  0*  0  *0  * 

*  *00* 

*  * 

*  *  *00*  * 

**  *0 

*  *  * 

*  *  *  0*  ** 

*0*  * 

**  *  **  *  **  *  *0* 

00  * 

*  * 

*  *  *  00 

*  * 

***  * 

*  ***  *  * 

HERE  ARE  SOME  EXAMPLES 
OF  PICTURES  WE  MADE. 

MOW  IT'S  YOUR  TURtj; 

1  FIND  THE  HURKLE  AND  DRAW 
‘  A  PICTURE  OF  IT.  (SEE  j>.2l) 

1  WRITE  A  PRO 6 ram  which 
draws  a  Different 
Picture  ever V  ROM. 

whichever  you  do(  send 
the  Result  to  US.  IF  WE 
like  tt  we  WIU.  : 

J  PRINT  IT  in  THE  MEXT 
TSSOE  oF  P.C.C. 

2  SEND  YoU  E*T£A  COPIES 
TO  SHOW  youR  FRIEa>DS. 

3.  GIVE  YOU  A  FREE  SUBSCR¬ 
IPT  IoN  To  P.  C.  C  . 

H.  mail  You  a  special 

SURPRIE  !< 


* 


,1  V  #  *  * 


«Dragonfiics 

are  thc 

machines 

of  th« 

future. » 

Salvador  Dali 

•N  r* 
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********* 
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takes  in  programming  as  weffa 
notation  and  formal  could  Mi 
We  therefore  included  manyf 
of  short  programs  and  HU  IS || 
reader  get  a  feet  for  the  inter $ 
programmer*  program*  and  mi 


Before  you 
using  the  system; 
no&need  *  line  hi 


fef6g?*m  using  fife  comma  mis  you  must  create. 

Since  OPEN  is  a  system  command' 


tajfl:  *  icraptifbto.  It  it  n  good  Ide*  to  u«?  “V«soyi«byr 
catttosrp  track  of  what  they  mean.  A  file  of  mister  si udeftf  inf 
t»  called  MASTS*,  a  Hit  of  phono  number  PHONE. 

u  type  iS^pen  the  file  that  wilt  contain  student  grade* 


X  Which  oft! 
that  follows  our 

EYESORE 


[lowing  file  names  will  not  be  accepted  by  a 
|||  rules? 

BfeRb  CfiADETGJNnr  A 


gm  may  nor  find  useful  right 
jgam  for  the  novice  and  you 
pt%vbc  fully  understood.  We 
fc'^neral  idea  of  what 
^J^5^»rogfamm  ing  and 
!  Wd*&  cartful  I  y  through  this,.; 


EYESORI 
GRADEP1 
I  ZERO  ( 
3  (begins 


jo  big) 

lytoo  big) 

tfg&rjh  a  number) 


An d  assign  it  to  the  variable  A. 


FILE  READ 


4,  The  amous 
onto  the  fife  w| 
from  computer; 
the  Ole,  in  othej 
manual  to  find 'i 
File  size  is 
up  fife  words  as 

Numeric  v; 


<C?f^hs  (the  number  of  pieces  of  data)  that  you  car 
ip^fvd  on  the  ti:e  of  the  file.  The  size  of  the  file 
P&jmputer  fit  some  computers  you  determine  the 
an  opened  file  has  a  fixed  size,  (Consult  your  com 
4  how  die  fife  size  is  determined*) 
l&uired  in  units  culled  words.  Data  written  on  a  fij 


10  FILES  A8LL>  Cl  DO#  ZERfl 


siring  variables  for  use  at  any 
Iteja  using  DATA  statements 
fjPfcr  and  store  large  quant  i Lies 
a  later  time  using  a 
^BHfejLmany  different 


i.eh  numeric  variable  uses  2 
wher  the  number  has  on^ 
ij&l&ia  racier  of  a  string,*^! 


words  of  file  ; 
gljygit  or  more.! 
:*4>k  takes  apj 


80  READ  #31 


/  suppose  it  is  somewhat  gauche  to  review 
your  own  book ,  but  we  worked  hard  on  it 
and  I*m  reasonably  satisfied  with  the  result 
A$  an  instructional  text ,  it  works,  and  l 
judge  it  to  be  among  the  best  of  its  kind 
now  available,  perhaps  even  the  best  (but 
consider  the  source  ,  *  «  )* 

In  contrast  to  our  instructional  workbook 
MY  COMPUTER  LIKES  ME,  the  Wiley 
BASIC  book  is  in  programmed  instruction 
format.  Programmed  instruction*  if  done 
properly ,  entails  a  process  of  careful  analy¬ 
sis  and  sequencing  of  the  material ,  vocab¬ 
ulary ,  and  concepts  to  be  taught ,  in  order 
to  attain  explicit  learning  objectives  stated 
out  front .  That  means  the  student  doesn  *t 
have  to  guess  about  what  he  orsh 
posed  to  learn  and  be  tested  on* 
objectives  specify  particular  obse 
behaviors  which  the  learner  must 
to  demonstrate  after  having  workel 
the  instructional  program  in  the 
specified.  Here  is  what  we  specify 

With  the  programmed  instruction 
you’ll  be  actively  involved  in  learn: 

BASIC*  The  material  is  prose  tiled 
short  numbered  sections  called  fr 
each  of  which  gives  yon  a  questio: 
you  to  write  a  program*  Correct 
are  given  below  the  dashed  line.  F| 
best  results*  we  urge  you  to  take 
pencil  in  hand  and  to  use  a  piece  o; 
paper  or  cardboard  to  keep  the  an 
out  of  sight  until  you  have  written; 
answer  in  the  space  provided*  Th 
lions  are  carefully  designed  to  call 
attention  to  important  points  in  the 
examples  and  explanations*  and  to 
you  learn  to  apply  what  is  being  e* 
plained  or  demonstrated. 


principally  marketed  through  college  book * 
stores  on  special  racks  containing  all  ike 
Wiley  se If -tea ch ing  b ook a.  Give n  the 
amount  of  depersonalized  mass  instruc¬ 
tion  and  the  number  of  harrassed  and/or 
disinterested  and/or  incompetent  instruc¬ 
tors  in  the  typical  college,  Wiley  sees 
potential  profit  in  entering  the  college 
outline ”  publishing  competition.  Students 
unlucky  enough  to  receive  poor  instruc¬ 
tion*  or  indolent  to  the  point  of  needing 
last  minute  remedial  instruction,  or  per¬ 
ceptive ,  energetic  and  ambitious  enough 
to  seek  additional  sources  of  /earning  will 
often  buy  this  style  of  self-study  text. 

But  for  us  (the  authors)*  the  self-instruc- 


explaining”  demonstration  programs  that 
showed  or  explained  how  they  worked  or 
what  they  did  when  R UN.  But  in  some 
cases *  a  lot  of  time  and  space  had  to  be 
used  to  explain  and  teach  that  which  would 
have  been  almost  trivial  if  we  could  have 
assumed  that  the  reader  were  created  af  a 
TTY  or  CRT. 

A  nother  aspect  of  programmed  instruction 
as  a  technique  is  the  requirement  of  testing 
the  instructional  program ,  and  revising  and 
mtesting  according  to  the  problems  and 
comments  of  the  learner .  If  the  student  is 
unable  to  meet  the  objectives ;  that  is* 
successfully  complete  the  problems  in  the 
Self-Test  at  the  end  of  each  chapter ,  (/ten 


conversational  asides,  and  ironic  humor 
natural  to  the  authors*  collective  writing 
style *  I  finally  got  the  feeling  that  the 
publishers  wished  the  hook  to  have  Lowest 
Common  Denominator  appeal*  like  commer¬ 
cial  TV ,  on  the  theory  that  it  would  broaden 
I h e  m le $  po  ten  t in L  Ho weve r*  to  give  credit 
where  credit  is  certainly  due ,  Wiley  editor 
Irene  Brownstone  provided  us  with  excep¬ 
tionally  helpful  suggestions  and  excellent 
detailed  critiques  of  the  various  manuscript 
drafts  and  revisions,  which  definitely  con¬ 
tributed  to  the  quality  of  the.  instruction . 

Another  anonymous  contributor  who 
helped  us  put  the  finishing  touches  on  the 
manuscript  as  we  were  all  running  out  of 
Lynn  Sessions  (you  W 
usic  ideas  in  PCCK  He 
r-Te$t  and  several  end  of 
tv  ell  as  general  helpful 
s  he  should  have  received 
yn .  Likewise,  Mary  Jo 
I  Hershey ,  who  did  the 
V  layout  with  a  little  help 
,  should  have  received 
Jtu 


Now,  understand  that  this  book  is |j 
an  extensile  series  of  &elfdnstrucli<§ 
books  that  Wiley  publishes.  The  series  is 


The  following  material  is  a 
Chapter  10  of  BASIC,  redo; 
actual  7"  x  ID1'  page  size. 


tts- 

;  BASIC  In  contrast  (again)  to  . 
t assumed.  UKES  ME  and  PCC,  ffi 
examples  book  is  quite  plain  and  ti 
(  the  Usher  required  that  it 
between  Teaching  Guides  umn£™„ 
inter.  In  and  Wiley's  editors  wera  fitso  responsible 


COMPUTER 

n  of  the 
%ghe  pub - 
Self- 

Ormat , 


addition ,  I  got  into  trying  tif  write  “ self  -  for  renmrinsr  or  amending  the  colloquialisms. 


§olf  is  an  excellent  alter - 

IMPUTER  UK  ES  ME 

!  situations  where  terminal 
|;  or  spa  md to.  It  also  goes 
■  BASIC  than  MCLM,  and 
er  on  Advanced  BASIC  and 
l  assign  chapters  to  high 
*  before  coming  to  the 
ter  Center  workshops,  and 
| responded  en  thustastically 
"which  they  get  into  pro - 
gm aiming,  fie  Vc  looking  forward  to  re¬ 
views*  criticisms  and  comments  from 
students  and  teachers  on  the  content  and 
good  ways  to  use  this  book,  and  we  hope 
to  pass  on  such  comments  through  the 
pages  of  ICC 


The  order  of  the  names  in  tire  FILES  statement  determines  how  they 
if  referenced  brer  in  the  program.  The  file  named  ZERO  will  now  he  ref- 

.  ^  ~  -  -  - 

Ik  'JmL 

Cl  00 

referenced  as  fife  L 
prepare  the  computer  to  use  files 


CHAPTER 

File 


The  use  of  BASIC  files  Is  an  advanced  conee 
away.  How  and  when  to  use  files  is  difficult  ; 
may  find  (hit  chapter  takes  two  or  three  reai 
suggest  that  you  read  this  chapter  once  now  { 
files  arc  all  about.  Then  after  you  do  some 
are  com  fori  able  with  computers*  conic  back 
chapter. 

When  you  have  completed  this  diapter  j 

*  differentiate  between  serial  and  randonfaco^ 

*  write  data  onto  serial  and  random  access||j|«  using  FILE  PRINT 
statements. 

*  read  data  from  serial  and  random  acce 
statements. 

*  use  the  following  fife  commands  with 
FILES  IF  END  TYP 

I.  Fifes  arc  used  to  store  numeric  data  an 
time.  Up  to  now  you  liave  had  to  enter  yo; 
as  pari  of  your  program.  Using  files,  you  ca 
of  data  using  one  program  and  then  access  l 
different  program.  You  can  access  the  data 
programs,  something  you  have  been  unable  l 
One  way  to  look  at  the  fife  is  to  imagin 
the  BASIC  program.  Programs  are  used  to 
In  an  application  that  uses  a  file  to  hold  alt 
for  the  student  body  oTa  school,  we  might 
all  using  one  file. 


k  A  aerial  fife  READ  statement  permits  reading  data  from  an  existing  file. 
The  general  form  is  shown  below: 


named  GRADES  and  MASTER. 


what  would  you 


10  FILES  GRADES  *  MASTER 


OPEN  -  G 


READ  #  (fife  number) ;  (variables) 
No  Id  the  punctuation 

*amptel  ,Jll, 


the  first  fife  in  the  FILES  statement 


ill  read  two  pieces  of  numeric  data  from  the  third  fife  in  the  FILES  state¬ 
ment  and  assign  them  to  variables  A  and  B. 

Given  the  FILES  statement,  write  a  state menl  that  will  read  three 
nuincric  variables  from  the  fife  named  ZERO. 


for  the  file  number  In  a  file  READ 


String  variable  ^  100  x  20  =  2000  characters 

*  2000  x  ft  *  1000  words  of  fife  space 


£0  READ  1X1  AS*8 


PROGRAM  1  ENTER  NEW  DATA  FOR  STUDENT 
PROGRAM  2  DELETE  STUDENT  DATA  ^ 
PROGRAM  3  CHANGE  NAME  OR  ADORESSOR 
PHONE 

PROGRAM  A  PREPARE  NAME  AND  ADORESS 
LABELS  FROM  FILE  DATA 
PROGRAM  S  PREPARE  ZtP  C00£  LISTING 
FROM  FILE  DATA 

PROGRAM  6  PREPARE  PHONE  LIST  FROM 
FILE  DATA 


FILE 


A  flic  that  will  contain  100  numbers  will  use: 

100  x  2  *  200  words 

Calculate  how  many  words  each  of  these  sets  of  data  will  fill  in  a  serial  file. 

(a)  140.  t  Sahara cter  names  _ 

(b)  140*  20-character  addresses _ _ _ _ 

(c)  140*  5-charactcr  zip  codes  (string  variable)  _ 

(d)  420  numbers  (representing  responses  to  an  opinion  poll.  Responses 


Ifin  i  previous  slate  meat.  X  has  been  calculated  as  equal  to  2*  the  statement 
above  will  read  from  the  second  fife  in  the  FILES  statement.  The  string 
variable  (AS)  and  the  numeric  variable  (B)  will  be  read  each  time  Line  20  is 
executed. 

Which  file  will  be  read  in  the  following: 

10  FILES  PKBNEj  MASTER*  ZER0 
80  LET  r*3-| 

30  READ  IT#  AS *8 


One  advantage  of  placing  data  into  files  instead  of  uoing  DATA  statements  b 


are  l ,  %  or  3.) 


You  can  access  llic  data  with  more  than  one  program. 


2.  Later  we  will  explain  the  use  of  serial  fifes  and  random  access  fifes. 

This  first  section  will  deal  only  with  serial  files. 

Information  stored  In  a  serial  fife  can  be  viewed  as  u.  continuous  aeries 
of  data  packed  densely  in  the  computer  memory. 

GEQRGE/Y0UNGfZ&/94191/BQB/HARRlS/42/S3t07/  . . , 

To  get  to  data  in  the  middle  of  a  serial  fife  you  must  read  from  the  beginning 
erf  the  file,  one  piece  oi  data  at  a  time,  until  you  reach  the  data  you  need. 


(a)  1 40  x  15  *  W  =  1 050 

(b)  140  x  20  x  1400 
(cl  140  x  5  x  14  =  350 
(d)  420  «  2  *  840 


5,  At  the  beginning  of  a  program  (lint  uses  fifes  you  must  include  a  state¬ 
ment  which  telh  the  computer  which  files  are  to  be  used  by  the  program. 
The  files  statement  too ks  tike  this: 


MASTER 


BASIC 

By  Albrecht,  Finkel  and  Brown 
John  Wiley  and  Sons,  Inc* 

605  Third  Avenue 
New  York,  N.Y.  10016 
325  pages,  1973* 


HOW  TO 
MY  AH 

CMi/r/Tcn 


O.K.  Here  is  how  you  build  an  Edu  10  or  a  one  user  Edu  20. 


Last  time  I  talked  about  Edu  10  and  Edu  20  and  how  to  get  from 
Edu  10  to  Edu  20  and  the  cost  of  adding  TTYs  and  stuff  like  that. 
This  time  I'll  start  by  giving  you  a  handy  do-it-yourself  kit  consisting 
of  excerpts  from  DEC’S  price  list. 


Edu  10 

One  User  Edu  20 

PDP8E-BA 

$4490 

* 

PDP8E-BE 

$5650 

MIS-EF 

500 

• 

MIS— EE 

500 

LT33-DC 

1620 

9 

KP8-E 

250 

Software 

250 

• 

LT33-DC 

1620 

Textbook  Kit 

100 

* 

Edu  20  Software 

250 

$6960 

9 

Textbook  Kit 

100 

$8370 

Now  here  are  four  ways  to  get  a  4  TTY  Edu  20  with  8K  memory. 

( 1  >  Buy  an  Edu  10  this  year  and  next  year  expand  to  an  8K  Edu  20 
with  4  TTYs. 


INST*  MONTHLY 

ID  # 

PDP8E— BA 
PDP8E— BE 
MC8-E 
MM8— E 

MC8— EJ 

MM8-EJ 

KP8-E 
MI8-EF 
LT33-DC 

KL8-E 

*This  is  the  charge  for  installing  additional  equipment  on  an  existing  system. 


DESCRIPTION 

PRICE 

CHG 

MAIf 

Computer,  4K  memory,  TTY 
control 

4490 

— 

60 

Computer,  8K  memory,  TTY 
control 

5650 

*— 

80 

4K  memory.  Required  to 
expand  from  4K  to  8K 

2750 

150 

20 

4K  memory.  This  one  gets 
you  from  8K  to  12K  or 
from  12K  to  16K 

2500 

150 

20 

8K  memory.  Required  to 
expand  from  4K  to  12K 

4150 

175 

40 

8K  memory.  Gets  you  from 

8K  to  16K  in  one  neat  jump 

3900 

175 

40 

Power  fail/restart 

250 

60 

2 

Hardware  bootstrap 

500 

60 

5 

Teletype  Model  ASR  33 
modified  to  work  with  PDP8 

1620 

120 

30 

Interface  card  for  TTY 

300 

60 

10 

Edu  10 

6960 

MC8“E  +  installation 

2750  + 

150 

KP8-E  +  installation 

250  + 

60 

3  LT33DC  +  installation 

4860  + 

360 

3  KU8-E  +  installation 

900  + 

180 

Edu  20  software 

250 

15970 

750 

Total  cost 

$16720 

(2)  Buy  a  one  user  Edu  20  with  8K  this  year  -  next  year  expand  to 
4  TTY's. 


One  user  Edu  20  with  8K 

8370 

3  LT33-DC  +  installation 

4860  + 

360 

3  KL8-E  +  installation 

900  + 

180 

14130 

540 

Total  cost 

$14670 

(3)  Buy  a  4  user  Edu  20  with  8K  this  year. 

•  Edu  20  with  8K  and  1  TTY  8370 

•  3  LT33-OC  4860 

•  3  KL8-E  900 

Total  cost  $14130 


(4) 


Buy  an  8K  Edu  20  with  one  TTY  from  DEC  and  buy  3  TTYs 
from  someone  else.* 

•  Edu  20  with  8K  and  1  TTY  8370 

•  3  TTYs  from  someone  else*  3450 

•  3  KL8-E  from  DEC  900 

Total  cost  $12720 


$16720 


$14670 


$14130 


*We  got  this  price  from  Data  Terminals  Corporation .  $  1 150  fora  new  ASR  33 
TTY  modified  so  iaht  it  will  work  on  a  PDP8E.  Or  yon  can  get  a  rebuilt  ASR  33 
for  POPS  from  DTC  for  $ 85(1  For  more  information,  contact  Data  Terminals 
Corporation ,  PM*  Box  5583*  Sa/i  }osei  CA *  95/50.  Phone  (408)378- 1 1 12 * 


Next  -  let’s  look  at  more  memory.  First*  suppose  we  buy  a  16K 
Edu  20  with  one  TTY, 


PDP8E— EJ 

5650 

MM8-EJ 

3900 

Hardware  bootstrap 

500 

Power  fail/restart 

250 

LT33-DC 

1620 

Edu  20  software 

250 

Textbook  kit 

100 

Total  cost 

$12270 

You  can  now  add  on  TTYs  -  up  to  8  of  them  with  the  1 6K  version  of 
Edu  20,  Or  you  may  prefer  using  Edu  21  software  which  provides 
modest  string  capabilities. 

We  will,  in  turn,  look  at  another  way  to  get  a  J6K  Edu  20  or  Edu  21 
with  one  TTY. 


►  Start  with  Edu  10 
*  Add  on  things  at  later  times 

KP8-E  +  installation 
*  MC8— E  +  installation 
MM8-E  +  installation 
MM8-E  +  installation 
Edu  20  or  Edu  21  software 

Total  cost 


6960 


4  K 


15210  +  510 
$15720 


Power  fail  delect  and  restart  is  handy!  It 
keeps  your  software  from  getting  wiped 
out  during  power  failures  or  temporary 
brownouts  or  when  someone  trips  over 
the  power  cord.  You  just  restart  wheu 
power  is  OK  again  —  otherwise,  you  usu¬ 
ally  have  to  reload  the  software. 


I’ll  leave  other  possibilities  to  you  -  like  going  from  4K  to  I2K  then 
to  1 6K  or  from  4K  to  8K  then  to  1 6K  and  so  on. 

In  the  meantime*  111  rest  up  for  the  next  issue  of  PCC  when  III  talk 
about  EduSystem  25  and  maintenance  and  . , ,  what  do  vow  want  to 
know?  Write  a  letter! 


C5£  BURKte  IS  H  Bflppy  BEHSC 


Hurkle?  A  Hurkle  is  a  happy  beast  and  lives  in  ano  t her  galazy 
on  a  planet  named  Lirht  that  has  three  moons.  Hurkle  are 
favorite  pets  of  the  gwik,  the  dominant  race  of  Lkth  and  . . . 
well,  to  find  out  more,  read  "The  Hurkle  is  a  Happy  Beast " 
in  a  book  called  A  WAY  HOME  by  Theodore  Sturgeon, 
published  by  Pyramid  Publications,  444  Madison  Avenue, 

New  York,  NY  10022.  (Unless  they  have  moved  since 
January,  1968.) 

pjpy  fuAJvLiM  JvzAuxjbb . 

ScoAiuL  UmjUqJjLA,  C^O  uruA&Jb(jL  „ 

tooh  cl  cfj  ol  fiappcj 

^vaxtLoiun^  ^uLnhJjL^  \oAxt  tkz,  cxwtiqaxx, 

cJfoU  j^oansiA.  Iojuvl  ojyuL  .  *  „  . 


run 

00  YOU  WANT  THE  RULES  U -YES  0-NQI?  I 
A  HURKLE  IS  HIDING  IN  A  GRID#  LIKE  THE  ONE  BELOW* 


<P 


A?0 


,VP 


1? 


9 

B 

1 

6 

5 

WEST  4 

3 

2 

I 

9 


01334*678  9 
SOUTH 

TRY  TO  GUESS  WHERE  THE  HURKLE  IS  HIDING*  YOU  GUESS 

by  telling  me  the  gridpoint  where  you  think  that 

THE  HURKLE  IS  HIDING*  HQMEBASE  fS  POINT  0,0  IN 
the  SOUTHWEST  CORNER*  YOUR  GUESS  SHOULD  BE  A  PAIR 
OF  WHOLE  NUMBERS,  SEPARATED  BY  A  COMMA.  THE  FIRST 
NUMBER  TELLS  HOW  FAR  TO  THE  RIGHT  OF  HOME0ASE  AND 
THE  SECOND  NUMBER  TELLS  NQU  FAR  ABOVE  HQMEBASE  YOU 
THINK  THE  HURKLE  IS  HIDING.  FOR  EXAMPLE,  IF  YOU 
THINK  THE  HURKLE  IS  7  TO  THE  RIGHT  AND  5  ABOVE 
HQMEBASE,  YOU  ENTER  7,5  AS  YOUR  GUESS  AND  THEN 
PRESS  THE  'RETURN*  KEY*  AFTER  EACH  GUESS*  I  WILL 
TELL  YOU  THE  APPROXIMATE  DIRECTION  TO  GO  FOR  YOUR 
NEXT  GUESS.  GOOD  LUCK! 


THE  HURKLE  IS  HIDING  -  YOU  GET  5  GUESSES  TO  FIND  HIM. 

WHAT  IS  YOUR  GUESS?  5,5 
GO  NORTHWEST 

WHAT  IS  YOUR  GUESS?  3,7 
GO  SOUTH 


WHAT  1$  YOUR  GUESS T  3,5 

YOU  FOUND  HIM  IN  3  GUESSES] I  I 
LET  *S  PLAY  AGAIN, 


THE  HURKLE  IS  HIDING  -  YOU  GET  5  GUESSES  TO  FIND  HIM* 
WHAT  IS  YOUR  GUESS?  ?7j 


9  Hit 


100 
1 10 
1 20 
139 
I  40 
159 
I  60 

1  70 
189 

1  90 
280 
210 
220 
23® 
240 
250 

2  60 

2  70 
2  80 
290 
300 

3  1 0 
320 
330 
340 
350 
360 
3  70 
380 

3  90 
400 

4  10 
420 
4  30 
4  40 
4  50 
460 
4  70 
4  0® 

4  99 
500 
510 
520 
530 
540 
S50 

5  60 
5  70 

5  60 
590 
600 
610 
620 
630 
64® 
65® 
660 

6  7® 
680 

6  9® 
70® 
71® 
72® 
730 
740 
750 

7  60 
7  70 
788 

7  90 
600 
810 
B20 

839 

840 
858 
860 

8  7® 
860 
8  90 


^  J  30 


PRINT 
PR  I  NT 
PRINT 


PRINT 

PRINT 

PRINT 


REM  ***  HURKLE  -  PEOPLE'S  COMPUTER  COMPANY,  MENLO  PARK,  CA 
RANDOM 

REM  *M  N  IS  THE  NUMBER  OF  GUESSES  ALLOWED 
LET  N-5 

PRINT  “00  YOU  WANT  THE  RULES  C1-YES  8«N0J“I  To 

INPUT  2  ,  eA?H 

IF  Z  *>  I  THEN  490 
REM  ***  HERE  ARE  THE  RULES 

PRINT  “A  HURKLE  IS  HIDING  IN  A  GRID,  LIKE  THE  ONE  BELOW.1* 

PRINT 

PRINT 

PR  I  NT  TAB C26) I “NORTH" 

PRINT 

FOR  K-9  TO  ®  STEP  - ] 

IF  K  <>  A  THEN  2  70 

PRINT  TAB  ( 8  >  I**  WEST  4“*TAB  f  20  I  J“ ,  .  EAST** 

GOTO  280 

PRINT  T  A8  <  I  4  )  j  K  |  T AS  <2  ®  >  j  **  • . " 

NEXT  K 
PRINT 

PRINT  TAB  C20  >"®  12  3  4  5  6  7  8  9** 

PRINT 

PRINT  TAB <2 6 >  *  "SOUTH'* 

PRINT 

PRINT  “TRY  TO  GUESS  WHERE  THE  HURKLE  IS  HIDING*  YOU  GUESS'* 
PRINT  “BY  TELLING  ME  THE  GKIOPGINT  WHERE  YOU  THINK  THAT** 

PRINT  “THE  HURKLE  IS  HIDING.  HQMEBASE  IS  POINT  0,0  IN1' 

PRINT  “THE  SOUTHWEST  CORNER.  YOUR  GUESS  SHOULD  BE  A  PAIR*1 
■OF  WHOLE  NUMBERS,  SEPARATED  BY  A  COMMA,  THE  FIRST** 
■NUMBER  TELLS  HOW  FAR  TO  THE  RIGHT  OF  HQMEBASE  AND** 

■THE  SECOND  NUMBER  TELLS  HOW  FAR  ABOVE  HOMES A S£  YOU” 

PRINT  '■THINK  THE  HURKLE  IS  HIDING,  FOR  EXAMPLE ,  IF  YOU  “ 

PRINT  “THINK  THE  HURKLE  IS  7  TO  THE  RIGHT  AND  S  ABOVE" 

"HQMEBASE,  YOU  ENTER  7,5  AS  YOUR  GUESS  AND  THEN1* 

"PRESS  THE  ’RETURN*  KEY.  AFTER  EACH  GUESS,  I  WILL" 

"TELL  YOU  THE  APPROXIMATE  DIRECTION  TO  GO  FOR  YOUR" 

PRINT  “NEXT  GUESS.  GOOD  LUCK T ** 

PRINT 

REM  *•*  HURKLE  'PICKS*  A  GRIDPOINT  AND  HIDES 
LET  A* I  NT  <10  *RND  C0  >  3 
LET  B=iNTU0*KNDf0)  > 

PRINT 

PRINT  “THE  HURKLE  IS  HIDING  -  YOU  GET" IN |“GUES3ES  TO  FIND  HIM,*4 
PRINT 

REM  ***  GET  A  GUESS  AND  PRINT  INFO  FOR  PLAYER 
FOR  K=  L  TO  N 

PRINT  “WHAT  IS  YOUR  GUESS*' j 
INPUT  X, Y 

IF  ABSCX-A1+ABS<Y-B>s0  THEN  710 

REM  ***  GO  TO  INFO  SUBROUTINE 

G0SU8  768 

PRINT 

NEXT  K 

PRINT 

REM  HURKLE  WAS  NOT  FOUND  IN  N  GUESSES 

PRINT  "SORRY,  THAT  *  S'*  IN  I*' GUESSES." 

PRINT  “THE  HURKLE  IS  AT  "JA*",»  IB 
PRINT 

PRINT  "LET'S  PLAY  AGAIN." 

GOTO  490 

REM  ***  HURKLE  HAS  BEEN  FOUND  I 
PRINT 

PRINT  “YOU  FOUND  HIM  I N"K i" GUESSES  I  II “ 

PRINT  “LET'S  PLAY  AGAIN." 

GOTO  49® 

REM  ***  SUBRQUTINEi  PRINT 
PRINT  "GO  “I 
IF  Y»B  THEN  628 
IF  Y<B  THEN  810 
PRINT  “SOUTH" i 
GOTO  82® 

PRINT  “NORTH" | 

IF  K-A  THEN  070 
IF  X<A  THEN  640 
PRINT  “WEST" t 
GOTO  87® 

PRINT  "EAST**  I 
PRINT 
RETURN 
END 


Of, 


°fvec/ 
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INFORMATION  for  next  guess 


Change  the  game  - 

•  First  number  is  distance  above  and 
second  number  is  distance  to  the 
right  of  homebase 

•  Longitude  and  latitude? 

•  Number  the  grid  in  rows  and 
columns,  like  this 

NORTH 

123456789  10 


EAST 


Homebase  is  U 

(Call  it  a  matnX 


if  you 


wish) 


SOUTH 


page  22 
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THINKING  OF  BUILDING  A  DOME? 

After  you've  read  DOM  EBOOK  If  {$4  from 
Shelter  Publications,  Box  279*  Bolinas,  CA. 
94924),  you  can  have  a  computer  do  or 
check  your  calculations.  Send  the  frequency 
and  actual  radius  of  your  proposed  ieosa- 
alternate  breakdown  (not  triacon)  dome 
to  Resourse  One,  1380  Howard,  San  Fran- 
cisco,  CA  94103,  and  they  will  send  you 
’lengths  of  struts 

’the  axial  angles  1  \  Dihedral  angle 

’the  central  angles 
’the  dihedral  angles 
’the  spherical  angles 
Be  sure  to  enclose  $1  and  a 
stamped  self -addresses  envelope. 
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MEDIA  MIX 


Joe  and  Robin  the  day  they  finished  the  frame  for  their 
dome.  They  built  a  two  story  house,  the  second  story 
being  a  30'  diameter  4-frequency  dome  with  a  3/8 
sleeping  loft  inside.  From  jerry  Brown  fs  DOMEFILM, 
a  1 6mm  color  film  documentary  on  dome  building * 


3  frequency 
a  face  of  the  tcosa. 
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Name  That  Hit  Tune! 
Bat  Computer  Can’t 


w  HOLLYWOOD*  Calif.  —  Computers  can 
|  create  music*  but  they  cannot  determine 
t  what  makes  a  kit  record*  according  to 
5  Allen  D.  Alien. 

g  Allen,  a  composer  and  a  research  scien- 
3  tisl.  worked  extensively  with  computers 
*  trying  to  find  technical  parallels  among 
£  hit  songs. 

2  "Initially  I  tried  to  find  a  correlation 
|  between  melodies  1  like,"  Allen  said, 
j  "I  took  all  the  tunes  —  the  chord  struc- 
,  tures,  tendency  toward  intervals,  surprLse, 
|  tempo*  time  signatures  and  all  the  other 
t  elements.  There  was  absolutely  no  eor- 
j:  relation  between  the  songs  1  like.  So  1 
“  thought  that  maybe  Vm  weird, 

^  "Then  we  did  a  study  with  an  IBM  1130 
5  computer.  This  was  to  find  what  hit 
<  records  had  in  common.  We  used  ail  the 
i  same  factors  (as  for  tunes)  plus  tone 
ri  colors,  instrumentations,  lyrics,  bottom 
or  high  end*  etc.  We  could  find  abso¬ 
lutely  no  mathematical  formula  for  a 
pleasing  melody  or  a  big-selling  disk.” 


GuiUOOu 

"Any  people  anywhere,  being  inclined  and  having  the 
power,  have  the  right  to  nse  up,  and  shake  off  the  existing 
government,  ami  form  a  new  one  that  suits  them  better 
This  is  a  most  valuable,  a  most  sacred  right-  a  right,  which 
we  hope  and  believe,  is  to  liberate  the  world." 

-  Abraham  Lincoln 


An  interesting  newsletter  entitled  Media  Mix: 
Ideas  and  Resources  for  Educational  Change 
recently  shuffled  its  way  to  the  surface  of  the 
mess  on  my  desk.  It  carries  interesting  reviews 
on  films,  filmstrips,  publications  and  other  items. 
Media  Mix  is  published  monthly*  October  to 
May  at  145  Brentwood  Dr.,  Polatine*  III. ,60067 
by  Jeffery  Sehrank.  One  year  subscription  is 
$5,  two  year  $9.  Here  is  a  sample  item: 

Uftstyle  2000:  Inquiry  into  thft  Future 
....  Schools  are  only  beginning  to 
recognize  that  a  study  of  the  future  is  a 
valid  part  of  the  curriculum.  In  response 
to  this  recognition  a  few  companies  are 
producing  media  material  about  the 
fu  ture.  One  of  the  best  to  come  along 
so  far  is  the  Denoyer-Geppert  filmstrip 
Lifestyle  2000,  The  sound  filmstrip  is  in 
four  parts,  each  about  80-frames  in  10 
minutes.  Each  consists  of  an  interview 
with  a  futurist-Hugb  Downs,  Paolo 
Soleri,  Herman  Kahn  and  Ray  Brad¬ 
bury.  The  four  segments,  however,  are 
economically  placed  on  two  rolls  of 
film.  The  Hugh  Downs  segment  pro¬ 
vides  a  gentle  and  general  introduction 
to  the  study  of  the  future  paving  the 
way  for  the  mind-blowing  ideas  of 
Paolo  Soleri,  Soleri  works  mostly 
with  young  people  in  Arizona  building 
his  city  of  the  future--a  gigantic  single 
building  that  serves  as  a  total  environ¬ 
ment.  Herman  Kahn  talks  of  knowledge 
and  the  ability  to  control  the  future  and 
Ray  Bradbury  delivers  a  kind  of  pep 
talk  encouraging  optimism. 

$30.60  from  Denoyer-Geppert,  5235 
Ravenswood  Ave.,  Chicago,  IL  60640, 

Also  ask  for  their  rapidly  growing  cata¬ 
log  of  filmstrips. 
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send,  check  or  money  order  to:  People’s  Computer  Company 

P.  0.  Box  310 

name -  Menlo  Park, Ca  94025 

address _ 


zip 

what  kind  of  computer  do  you  use? 


subscriptions 


start  with  1st  issue  of  school  year 


$4  for  5  issues 

($5  Canada  &  overseas) 
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